;;;; Generated on 10/20/2021 at 09:40:02 (UTC+10).

(COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0)
                      COMMON-LISP:SAFETY COMMON-LISP:DEBUG
                      COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM (COMMON-LISP:INLINE %%DPTEQR %DPTEQR %%ZLAPLL
                      %ZLAPLL %%CLARFY %CLARFY %%CHBGVX %CHBGVX
                      %%ZLATSQR %ZLATSQR %%ZHEEVX %ZHEEVX %%SGEQR
                      %SGEQR %%CLAUUM %CLAUUM %%CLACPY %CLACPY %%DORM2R
                      %DORM2R %%SLASQ3 %SLASQ3 %%SORGBR %SORGBR
                      %%CTGSEN %CTGSEN %%ZHSEQR %ZHSEQR %%CPBSVX
                      %CPBSVX %%ZGGESX %ZGGESX %%DGGSVD3 %DGGSVD3
                      %%SLA_SYRPVGRW %SLA_SYRPVGRW %%SGGGLM %SGGGLM
                      %%DLAED7 %DLAED7 %%SORBDB5 %SORBDB5 %%SLAPY3
                      %SLAPY3 %%SSYGV_2STAGE %SSYGV_2STAGE %%SGEEVX
                      %SGEEVX %%SSBEVD %SSBEVD %%DLAMRG %DLAMRG
                      %%CLANHF %CLANHF %%CHPCON %CHPCON %%ZUNGQR
                      %ZUNGQR %%DPBSV %DPBSV %%SGESVX %SGESVX %%ZGTCON
                      %ZGTCON %%SLASV2 %SLASV2 %%DLA_SYRFSX_EXTENDED
                      %DLA_SYRFSX_EXTENDED %%CPPCON %CPPCON %%ZTPQRT
                      %ZTPQRT %%ZGEEQU %ZGEEQU %%SLAED1 %SLAED1
                      %%SGSVJ0 %SGSVJ0 %%CHEEVD_2STAGE %CHEEVD_2STAGE
                      %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED
                      %%SPOTF2 %SPOTF2 %%DPOCON %DPOCON %%ZHEGVD
                      %ZHEGVD %%ZGETRI %ZGETRI %%ZSYSVX %ZSYSVX
                      %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
                      %%SGTCON %SGTCON %%ZLA_GEAMV %ZLA_GEAMV
                      %%CHEEVR_2STAGE %CHEEVR_2STAGE %%DLAG2S %DLAG2S
                      %%ZPPTRI %ZPPTRI %%SLACON %SLACON %%CTPLQT
                      %CTPLQT %%ZHECON_ROOK %ZHECON_ROOK %%CROT %CROT
                      %%ZTRSYL %ZTRSYL %%CLARSCL2 %CLARSCL2 %%CLASR
                      %CLASR %%SSYTRD_2STAGE %SSYTRD_2STAGE
                      %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SLARRV %SLARRV
                      %%DORBDB3 %DORBDB3 %%DPPCON %DPPCON %%CHECON_3
                      %CHECON_3 %%SLAHQR %SLAHQR %%DPOSVXX %DPOSVXX
                      %%ZHESV_RK %ZHESV_RK %%CGEQR %CGEQR %%CLACGV
                      %CLACGV %%SORML2 %SORML2 %%CLAQR0 %CLAQR0
                      %%SLAED2 %SLAED2 %%ZLATBS %ZLATBS %%DGETRF
                      %DGETRF %%CSYTRS2 %CSYTRS2 %%ZLANTP %ZLANTP
                      %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED
                      %%DGGLSE %DGGLSE %%ZLANHT %ZLANHT %%DORMR3
                      %DORMR3 %%ZUNGHR %ZUNGHR %%DLANSF %DLANSF
                      %%ZGELQT3 %ZGELQT3 %%CHFRK %CHFRK %%DSBEVD_2STAGE
                      %DSBEVD_2STAGE %%CUNG2R %CUNG2R %%CLARZT %CLARZT
                      %%CTGEX2 %CTGEX2 %%SLATPS %SLATPS %%CHETRI_3X
                      %CHETRI_3X %%ZLACGV %ZLACGV %%ZBDSQR %ZBDSQR
                      %%CLARFX %CLARFX %%SORMRZ %SORMRZ
                      %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE %%ZHPCON
                      %ZHPCON %%SGERFS %SGERFS %%DLARTGP %DLARTGP
                      %%SSTEQR %SSTEQR %%DGELSY %DGELSY %%ZSYTRI_3X
                      %ZSYTRI_3X %%ZGGHRD %ZGGHRD %%SSYTRF %SSYTRF
                      %%ZLAQP2 %ZLAQP2 %%CUNBDB1 %CUNBDB1 %%SGTSVX
                      %SGTSVX %%SLAR2V %SLAR2V %%DSTEVD %DSTEVD
                      %%ZLA_HERPVGRW %ZLA_HERPVGRW %%CLARFT %CLARFT
                      %%ZGETSLS %ZGETSLS %%ZHPTRS %ZHPTRS %%SLATRS
                      %SLATRS %%DSYTRI_ROOK %DSYTRI_ROOK %%DLARRF
                      %DLARRF %%ZHEEVR %ZHEEVR %%ZLACP2 %ZLACP2
                      %%DLANTB %DLANTB %%CLA_HEAMV %CLA_HEAMV
                      %%SLAMTSQR %SLAMTSQR %%CTPRFS %CTPRFS %%DGBSVXX
                      %DGBSVXX %%ZTPTRI %ZTPTRI %%DTGSNA %DTGSNA
                      %%DSPEV %DSPEV %%CGEBRD %CGEBRD %%ZPOEQUB
                      %ZPOEQUB %%DLARTGS %DLARTGS %%ZHETRS_AA_2STAGE
                      %ZHETRS_AA_2STAGE %%DTRCON %DTRCON %%CUNMR3
                      %CUNMR3 %%DGBTRF %DGBTRF %%SLA_SYAMV %SLA_SYAMV
                      %%SPBTRF %SPBTRF %%CGBEQU %CGBEQU %%ZHECON_3
                      %ZHECON_3 %%SGELS %SGELS %%DSYEVX %DSYEVX
                      %%SSYTRS2 %SSYTRS2 %%DBDSDC %DBDSDC %%SGGHRD
                      %SGGHRD %%DSPGV %DSPGV %%SGEMQRT %SGEMQRT %%CSYR
                      %CSYR %%STGEXC %STGEXC %%CPOTRF2 %CPOTRF2
                      %%SGESVDQ %SGESVDQ %%DSPTRD %DSPTRD %%CSYTRF_ROOK
                      %CSYTRF_ROOK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZGGQRF
                      %ZGGQRF %%DLAT2S %DLAT2S %%DGESVXX %DGESVXX
                      %%ZSYTRF_AA %ZSYTRF_AA %%CLA_HERFSX_EXTENDED
                      %CLA_HERFSX_EXTENDED %%ZLARFX %ZLARFX %%SGEMLQ
                      %SGEMLQ %%DGGHD3 %DGGHD3 %%CHBEVD_2STAGE
                      %CHBEVD_2STAGE %%DPTTRS %DPTTRS %%DLAG2 %DLAG2
                      %%CGESVXX %CGESVXX %%ZLACRM %ZLACRM %%ZTBCON
                      %ZTBCON %%DLASD7 %DLASD7 %%ZUNGTR %ZUNGTR
                      %%CGEESX %CGEESX %%CHEGST %CHEGST %%CLARNV
                      %CLARNV %%DLAHR2 %DLAHR2 %%ZLA_HEAMV %ZLA_HEAMV
                      %%SGBCON %SGBCON %%ILADLC %ILADLC %%SLASD6
                      %SLASD6 %%SLAED4 %SLAED4 %%SLA_GERFSX_EXTENDED
                      %SLA_GERFSX_EXTENDED %%SLARRR %SLARRR %%CTRCON
                      %CTRCON %%ZGTSV %ZGTSV %%SSYGVD %SSYGVD %%DSPEVD
                      %DSPEVD %%CTFTRI %CTFTRI %%DSBEV %DSBEV %%CGESVDX
                      %CGESVDX %%SGEES %SGEES %%DGTRFS %DGTRFS
                      %%SSYTRF_AA %SSYTRF_AA %%ZLA_GBRCOND_C
                      %ZLA_GBRCOND_C %%ZLANGT %ZLANGT %%ZHETD2 %ZHETD2
                      %%CSYMV %CSYMV %%DLARFY %DLARFY %%ZLACPY %ZLACPY
                      %%SSTEVR %SSTEVR %%CLANHT %CLANHT %%ZHETRS_ROOK
                      %ZHETRS_ROOK %%ZGELSY %ZGELSY %%DTPRFS %DTPRFS
                      %%ZSYTRI %ZSYTRI %%SLASD4 %SLASD4 %%CLA_GERPVGRW
                      %CLA_GERPVGRW %%SPOTRF %SPOTRF %%CLALSA %CLALSA
                      %%CGEBAK %CGEBAK %%DSYTF2 %DSYTF2 %%CSYTRF
                      %CSYTRF %%CUNBDB %CUNBDB %%DLARRK %DLARRK
                      %%ZLASCL2 %ZLASCL2 %%DSYCON %DSYCON %%DGEQL2
                      %DGEQL2 %%DSYEQUB %DSYEQUB %%DSYEV %DSYEV
                      %%CLASYF %CLASYF %%CPTCON %CPTCON %%DTRSEN
                      %DTRSEN %%CSYCON_ROOK %CSYCON_ROOK %%CHBGV %CHBGV
                      %%DGTTRF %DGTTRF %%CGTTS2 %CGTTS2 %%ZTGSYL
                      %ZTGSYL %%SSBEV_2STAGE %SSBEV_2STAGE %%DGBSVX
                      %DGBSVX %%ZSPTRI %ZSPTRI %%DGEEV %DGEEV %%CSYTRI2
                      %CSYTRI2 %%CLARGV %CLARGV %%ILADIAG %ILADIAG
                      %%STREVC %STREVC %%SGEBAK %SGEBAK %%ZHBGVX
                      %ZHBGVX %%CLANHP %CLANHP %%ILAENV %ILAENV
                      %%ZGEQRT %ZGEQRT %%DLAHQR %DLAHQR %%CGELQT
                      %CGELQT %%STRSNA %STRSNA %%DPFTRS %DPFTRS
                      %%CHPGVD %CHPGVD %%DGELQ2 %DGELQ2 %%ZHPGVX
                      %ZHPGVX %%DSPSV %DSPSV %%CPTTRF %CPTTRF %%SLASD0
                      %SLASD0 %%CHESVXX %CHESVXX %%DSYTRD_2STAGE
                      %DSYTRD_2STAGE %%ZHEGS2 %ZHEGS2))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPTEQR "dpteqr_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4378 ':INT32) (LDZ-REF4382 ':INT32)
                              (INFO-REF4384 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4378 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4382 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4384 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4379 D)
                                            (E-REF4380 E)
                                            (Z-REF4381 Z)
                                            (WORK-REF4383 WORK))
      (%%DPTEQR COMPZ N-REF4378 D-REF4379 E-REF4380 Z-REF4381
       LDZ-REF4382 WORK-REF4383 INFO-REF4384))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAPLL "zlapll_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS)
   (SSMIN :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPLL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4385 ':INT32)
                              (INCX-REF4387 ':INT32)
                              (INCY-REF4389 ':INT32)
                              (SSMIN-REF4390 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4385 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4387 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4389 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF4390 :DOUBLE) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4386 X)
                                            (Y-REF4388 Y))
      (%%ZLAPLL N-REF4385 X-REF4386 INCX-REF4387 Y-REF4388 INCY-REF4389
       SSMIN-REF4390))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARFY "clarfy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4392 ':INT32)
                              (INCV-REF4394 ':INT32)
                              (TAU-REF4395
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF4397 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF4394 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF4395
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF4397 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF4393 V)
                                            (C-REF4396 C)
                                            (WORK-REF4398 WORK))
      (%%CLARFY UPLO N-REF4392 V-REF4393 INCV-REF4394 TAU-REF4395
       C-REF4396 LDC-REF4397 WORK-REF4398))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBGVX "chbgvx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBGVX
    (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU ABSTOL M
     W Z LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4402 ':INT32) (KA-REF4403 ':INT32)
                              (KB-REF4404 ':INT32)
                              (LDAB-REF4406 ':INT32)
                              (LDBB-REF4408 ':INT32)
                              (LDQ-REF4410 ':INT32)
                              (VL-REF4411 ':FLOAT) (VU-REF4412 ':FLOAT)
                              (IL-REF4413 ':INT32) (IU-REF4414 ':INT32)
                              (ABSTOL-REF4415 ':FLOAT)
                              (M-REF4416 ':INT32) (LDZ-REF4419 ':INT32)
                              (INFO-REF4424 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF4403 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF4404 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4406 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF4408 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4410 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4411 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4412 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4413 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4414 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF4415 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4416 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4419 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4424 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4405 AB)
                                            (BB-REF4407 BB)
                                            (Q-REF4409 Q)
                                            (W-REF4417 W)
                                            (Z-REF4418 Z)
                                            (WORK-REF4420 WORK)
                                            (RWORK-REF4421 RWORK)
                                            (IWORK-REF4422 IWORK)
                                            (IFAIL-REF4423 IFAIL))
      (%%CHBGVX JOBZ RANGE UPLO N-REF4402 KA-REF4403 KB-REF4404
       AB-REF4405 LDAB-REF4406 BB-REF4407 LDBB-REF4408 Q-REF4409
       LDQ-REF4410 VL-REF4411 VU-REF4412 IL-REF4413 IU-REF4414
       ABSTOL-REF4415 M-REF4416 W-REF4417 Z-REF4418 LDZ-REF4419
       WORK-REF4420 RWORK-REF4421 IWORK-REF4422 IFAIL-REF4423
       INFO-REF4424))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLATSQR "zlatsqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATSQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4425 ':INT32) (N-REF4426 ':INT32)
                              (MB-REF4427 ':INT32) (NB-REF4428 ':INT32)
                              (LDA-REF4430 ':INT32)
                              (LDT-REF4432 ':INT32)
                              (LWORK-REF4434 ':INT32)
                              (INFO-REF4435 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4425 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4426 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF4427 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4428 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4430 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4432 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4434 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4435 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4429 A)
                                            (T-REF4431 T)
                                            (WORK-REF4433 WORK))
      (%%ZLATSQR M-REF4425 N-REF4426 MB-REF4427 NB-REF4428 A-REF4429
       LDA-REF4430 T-REF4431 LDT-REF4432 WORK-REF4433 LWORK-REF4434
       INFO-REF4435))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEEVX "zheevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEEVX
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK LWORK
     RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4439 ':INT32) (LDA-REF4441 ':INT32)
                              (VL-REF4442 ':DOUBLE)
                              (VU-REF4443 ':DOUBLE)
                              (IL-REF4444 ':INT32) (IU-REF4445 ':INT32)
                              (ABSTOL-REF4446 ':DOUBLE)
                              (M-REF4447 ':INT32) (LDZ-REF4450 ':INT32)
                              (LWORK-REF4452 ':INT32)
                              (INFO-REF4456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4439 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4441 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4442 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4443 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4444 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4445 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF4446 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4447 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4450 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4452 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4456 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4440 A)
                                            (W-REF4448 W)
                                            (Z-REF4449 Z)
                                            (WORK-REF4451 WORK)
                                            (RWORK-REF4453 RWORK)
                                            (IWORK-REF4454 IWORK)
                                            (IFAIL-REF4455 IFAIL))
      (%%ZHEEVX JOBZ RANGE UPLO N-REF4439 A-REF4440 LDA-REF4441
       VL-REF4442 VU-REF4443 IL-REF4444 IU-REF4445 ABSTOL-REF4446
       M-REF4447 W-REF4448 Z-REF4449 LDZ-REF4450 WORK-REF4451
       LWORK-REF4452 RWORK-REF4453 IWORK-REF4454 IFAIL-REF4455
       INFO-REF4456))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQR "sgeqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (TSIZE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4457 ':INT32) (N-REF4458 ':INT32)
                              (LDA-REF4460 ':INT32)
                              (TSIZE-REF4462 ':INT32)
                              (LWORK-REF4464 ':INT32)
                              (INFO-REF4465 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4457 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4460 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF4462 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4464 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4465 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4459 A)
                                            (T-REF4461 T)
                                            (WORK-REF4463 WORK))
      (%%SGEQR M-REF4457 N-REF4458 A-REF4459 LDA-REF4460 T-REF4461
       TSIZE-REF4462 WORK-REF4463 LWORK-REF4464 INFO-REF4465))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAUUM "clauum_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUUM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4467 ':INT32) (LDA-REF4469 ':INT32)
                              (INFO-REF4470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4467 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4469 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4468 A))
      (%%CLAUUM UPLO N-REF4467 A-REF4468 LDA-REF4469 INFO-REF4470))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLACPY "clacpy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACPY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4472 ':INT32) (N-REF4473 ':INT32)
                              (LDA-REF4475 ':INT32)
                              (LDB-REF4477 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4472 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4473 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4475 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4477 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4474 A)
                                            (B-REF4476 B))
      (%%CLACPY UPLO M-REF4472 N-REF4473 A-REF4474 LDA-REF4475
       B-REF4476 LDB-REF4477))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORM2R "dorm2r_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM2R)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4480 ':INT32) (N-REF4481 ':INT32)
                              (K-REF4482 ':INT32) (LDA-REF4484 ':INT32)
                              (LDC-REF4487 ':INT32)
                              (INFO-REF4489 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4480 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4481 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4482 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4484 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF4487 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4489 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4483 A)
                                            (TAU-REF4485 TAU)
                                            (C-REF4486 C)
                                            (WORK-REF4488 WORK))
      (%%DORM2R SIDE TRANS M-REF4480 N-REF4481 K-REF4482 A-REF4483
       LDA-REF4484 TAU-REF4485 C-REF4486 LDC-REF4487 WORK-REF4488
       INFO-REF4489))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASQ3 "slasq3_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (DMIN :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (DESIG :FOREIGN-ADDRESS)
   (QMAX :FOREIGN-ADDRESS) (NFAIL :FOREIGN-ADDRESS)
   (ITER :FOREIGN-ADDRESS) (NDIV :FOREIGN-ADDRESS)
   (IEEE :FOREIGN-ADDRESS) (TTYPE :FOREIGN-ADDRESS)
   (DMIN1 :FOREIGN-ADDRESS) (DMIN2 :FOREIGN-ADDRESS)
   (DN :FOREIGN-ADDRESS) (DN1 :FOREIGN-ADDRESS) (DN2 :FOREIGN-ADDRESS)
   (G :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASQ3
    (I0 N0 Z PP DMIN SIGMA DESIG QMAX NFAIL ITER NDIV IEEE TTYPE DMIN1
     DMIN2 DN DN1 DN2 G TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DESIG)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT QMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NDIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF4490 ':INT32) (N0-REF4491 ':INT32)
                              (PP-REF4493 ':INT32)
                              (DMIN-REF4494 ':FLOAT)
                              (SIGMA-REF4495 ':FLOAT)
                              (DESIG-REF4496 ':FLOAT)
                              (QMAX-REF4497 ':FLOAT)
                              (NFAIL-REF4498 ':INT32)
                              (ITER-REF4499 ':INT32)
                              (NDIV-REF4500 ':INT32)
                              (IEEE-REF4501 ':INT32)
                              (TTYPE-REF4502 ':INT32)
                              (DMIN1-REF4503 ':FLOAT)
                              (DMIN2-REF4504 ':FLOAT)
                              (DN-REF4505 ':FLOAT)
                              (DN1-REF4506 ':FLOAT)
                              (DN2-REF4507 ':FLOAT) (G-REF4508 ':FLOAT)
                              (TAU-REF4509 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF4490 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF4491 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF4493 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF4494 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF4495 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF4496 :FLOAT) DESIG)
    (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF4497 :FLOAT) QMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF4498 :INT32) NFAIL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF4499 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF4500 :INT32) NDIV)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF4501 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF4502 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF4503 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF4504 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF4505 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF4506 :FLOAT) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF4507 :FLOAT) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF4508 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF4509 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF4492 Z))
      (%%SLASQ3 I0-REF4490 N0-REF4491 Z-REF4492 PP-REF4493 DMIN-REF4494
       SIGMA-REF4495 DESIG-REF4496 QMAX-REF4497 NFAIL-REF4498
       ITER-REF4499 NDIV-REF4500 IEEE-REF4501 TTYPE-REF4502
       DMIN1-REF4503 DMIN2-REF4504 DN-REF4505 DN1-REF4506 DN2-REF4507
       G-REF4508 TAU-REF4509))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORGBR "sorgbr_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4511 ':INT32) (N-REF4512 ':INT32)
                              (K-REF4513 ':INT32) (LDA-REF4515 ':INT32)
                              (LWORK-REF4518 ':INT32)
                              (INFO-REF4519 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4511 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4512 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4513 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4515 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4518 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4519 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4514 A)
                                            (TAU-REF4516 TAU)
                                            (WORK-REF4517 WORK))
      (%%SORGBR VECT M-REF4511 N-REF4512 K-REF4513 A-REF4514
       LDA-REF4515 TAU-REF4516 WORK-REF4517 LWORK-REF4518
       INFO-REF4519))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTGSEN "ctgsen_")
  ((IJOB :FOREIGN-ADDRESS) (WANTQ :FOREIGN-ADDRESS)
   (WANTZ :FOREIGN-ADDRESS) (SELECT :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (PL :FOREIGN-ADDRESS) (PR :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTGSEN
    (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHA BETA Q LDQ Z LDZ M PL
     PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSEN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4520 ':INT32)
                              (WANTQ-REF4521 ':INT32)
                              (WANTZ-REF4522 ':INT32)
                              (N-REF4524 ':INT32) (LDA-REF4526 ':INT32)
                              (LDB-REF4528 ':INT32)
                              (LDQ-REF4532 ':INT32)
                              (LDZ-REF4534 ':INT32) (M-REF4535 ':INT32)
                              (PL-REF4536 ':FLOAT) (PR-REF4537 ':FLOAT)
                              (LWORK-REF4540 ':INT32)
                              (LIWORK-REF4542 ':INT32)
                              (INFO-REF4543 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4520 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4521 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4522 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4524 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4526 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4528 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4532 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4534 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4535 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF4536 :FLOAT) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF4537 :FLOAT) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4540 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4542 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4543 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4523 SELECT)
                                            (A-REF4525 A)
                                            (B-REF4527 B)
                                            (ALPHA-REF4529 ALPHA)
                                            (BETA-REF4530 BETA)
                                            (Q-REF4531 Q)
                                            (Z-REF4533 Z)
                                            (DIF-REF4538 DIF)
                                            (WORK-REF4539 WORK)
                                            (IWORK-REF4541 IWORK))
      (%%CTGSEN IJOB-REF4520 WANTQ-REF4521 WANTZ-REF4522 SELECT-REF4523
       N-REF4524 A-REF4525 LDA-REF4526 B-REF4527 LDB-REF4528
       ALPHA-REF4529 BETA-REF4530 Q-REF4531 LDQ-REF4532 Z-REF4533
       LDZ-REF4534 M-REF4535 PL-REF4536 PR-REF4537 DIF-REF4538
       WORK-REF4539 LWORK-REF4540 IWORK-REF4541 LIWORK-REF4542
       INFO-REF4543))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHSEQR "zhseqr_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHSEQR
    (JOB COMPZ N ILO IHI H LDH W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHSEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4546 ':INT32) (ILO-REF4547 ':INT32)
                              (IHI-REF4548 ':INT32)
                              (LDH-REF4550 ':INT32)
                              (LDZ-REF4553 ':INT32)
                              (LWORK-REF4555 ':INT32)
                              (INFO-REF4556 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4546 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF4547 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF4548 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF4550 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4553 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4555 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4556 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF4549 H)
                                            (W-REF4551 W)
                                            (Z-REF4552 Z)
                                            (WORK-REF4554 WORK))
      (%%ZHSEQR JOB COMPZ N-REF4546 ILO-REF4547 IHI-REF4548 H-REF4549
       LDH-REF4550 W-REF4551 Z-REF4552 LDZ-REF4553 WORK-REF4554
       LWORK-REF4555 INFO-REF4556))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPBSVX "cpbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPBSVX
    (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX RCOND
     FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4559 ':INT32) (KD-REF4560 ':INT32)
                              (NRHS-REF4561 ':INT32)
                              (LDAB-REF4563 ':INT32)
                              (LDAFB-REF4565 ':INT32)
                              (LDB-REF4569 ':INT32)
                              (LDX-REF4571 ':INT32)
                              (RCOND-REF4572 ':FLOAT)
                              (INFO-REF4577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4559 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4560 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4561 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4563 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF4565 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4569 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4571 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4572 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4562 AB)
                                            (AFB-REF4564 AFB)
                                            (S-REF4567 S)
                                            (B-REF4568 B)
                                            (X-REF4570 X)
                                            (FERR-REF4573 FERR)
                                            (BERR-REF4574 BERR)
                                            (WORK-REF4575 WORK)
                                            (RWORK-REF4576 RWORK))
      (%%CPBSVX FACT UPLO N-REF4559 KD-REF4560 NRHS-REF4561 AB-REF4562
       LDAB-REF4563 AFB-REF4564 LDAFB-REF4565 EQUED S-REF4567 B-REF4568
       LDB-REF4569 X-REF4570 LDX-REF4571 RCOND-REF4572 FERR-REF4573
       BERR-REF4574 WORK-REF4575 RWORK-REF4576 INFO-REF4577))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGESX "zggesx_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (SDIM :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (VSL :FOREIGN-ADDRESS) (LDVSL :FOREIGN-ADDRESS)
   (VSR :FOREIGN-ADDRESS) (LDVSR :FOREIGN-ADDRESS)
   (RCONDE :FOREIGN-ADDRESS) (RCONDV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (BWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGESX
    (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHA BETA VSL
     LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK RWORK IWORK LIWORK BWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGESX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF4581 ':INT32)
                              (N-REF4583 ':INT32) (LDA-REF4585 ':INT32)
                              (LDB-REF4587 ':INT32)
                              (SDIM-REF4588 ':INT32)
                              (LDVSL-REF4592 ':INT32)
                              (LDVSR-REF4594 ':INT32)
                              (LWORK-REF4598 ':INT32)
                              (LIWORK-REF4601 ':INT32)
                              (INFO-REF4603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF4581 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4583 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4585 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4587 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF4588 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF4592 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF4594 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4598 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4601 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4603 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4584 A)
                                            (B-REF4586 B)
                                            (ALPHA-REF4589 ALPHA)
                                            (BETA-REF4590 BETA)
                                            (VSL-REF4591 VSL)
                                            (VSR-REF4593 VSR)
                                            (RCONDE-REF4595 RCONDE)
                                            (RCONDV-REF4596 RCONDV)
                                            (WORK-REF4597 WORK)
                                            (RWORK-REF4599 RWORK)
                                            (IWORK-REF4600 IWORK)
                                            (BWORK-REF4602 BWORK))
      (%%ZGGESX JOBVSL JOBVSR SORT SELCTG-REF4581 SENSE N-REF4583
       A-REF4584 LDA-REF4585 B-REF4586 LDB-REF4587 SDIM-REF4588
       ALPHA-REF4589 BETA-REF4590 VSL-REF4591 LDVSL-REF4592 VSR-REF4593
       LDVSR-REF4594 RCONDE-REF4595 RCONDV-REF4596 WORK-REF4597
       LWORK-REF4598 RWORK-REF4599 IWORK-REF4600 LIWORK-REF4601
       BWORK-REF4602 INFO-REF4603))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGSVD3 "dggsvd3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGSVD3
    (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV Q LDQ
     WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVD3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4607 ':INT32) (N-REF4608 ':INT32)
                              (P-REF4609 ':INT32) (K-REF4610 ':INT32)
                              (L-REF4611 ':INT32) (LDA-REF4613 ':INT32)
                              (LDB-REF4615 ':INT32)
                              (LDU-REF4619 ':INT32)
                              (LDV-REF4621 ':INT32)
                              (LDQ-REF4623 ':INT32)
                              (LWORK-REF4625 ':INT32)
                              (INFO-REF4627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4607 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4608 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF4609 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4610 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4611 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4613 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4615 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF4619 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF4621 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4623 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4625 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4612 A)
                                            (B-REF4614 B)
                                            (ALPHA-REF4616 ALPHA)
                                            (BETA-REF4617 BETA)
                                            (U-REF4618 U)
                                            (V-REF4620 V)
                                            (Q-REF4622 Q)
                                            (WORK-REF4624 WORK)
                                            (IWORK-REF4626 IWORK))
      (%%DGGSVD3 JOBU JOBV JOBQ M-REF4607 N-REF4608 P-REF4609 K-REF4610
       L-REF4611 A-REF4612 LDA-REF4613 B-REF4614 LDB-REF4615
       ALPHA-REF4616 BETA-REF4617 U-REF4618 LDU-REF4619 V-REF4620
       LDV-REF4621 Q-REF4622 LDQ-REF4623 WORK-REF4624 LWORK-REF4625
       IWORK-REF4626 INFO-REF4627))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_SYRPVGRW "sla_syrpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4629 ':INT32)
                              (INFO-REF4630 ':INT32)
                              (LDA-REF4632 ':INT32)
                              (LDAF-REF4634 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4629 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4630 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4632 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4634 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4631 A)
                                            (AF-REF4633 AF)
                                            (IPIV-REF4635 IPIV)
                                            (WORK-REF4636 WORK))
      (%%SLA_SYRPVGRW UPLO N-REF4629 INFO-REF4630 A-REF4631 LDA-REF4632
       AF-REF4633 LDAF-REF4634 IPIV-REF4635 WORK-REF4636))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGGLM "sggglm_")
  ((N :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGGLM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4637 ':INT32) (M-REF4638 ':INT32)
                              (P-REF4639 ':INT32) (LDA-REF4641 ':INT32)
                              (LDB-REF4643 ':INT32)
                              (LWORK-REF4648 ':INT32)
                              (INFO-REF4649 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4637 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4638 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF4639 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4641 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4643 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4648 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4649 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4640 A)
                                            (B-REF4642 B)
                                            (D-REF4644 D)
                                            (X-REF4645 X)
                                            (Y-REF4646 Y)
                                            (WORK-REF4647 WORK))
      (%%SGGGLM N-REF4637 M-REF4638 P-REF4639 A-REF4640 LDA-REF4641
       B-REF4642 LDB-REF4643 D-REF4644 X-REF4645 Y-REF4646 WORK-REF4647
       LWORK-REF4648 INFO-REF4649))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED7 "dlaed7_")
  ((ICOMPQ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (QSIZ :FOREIGN-ADDRESS) (TLVLS :FOREIGN-ADDRESS)
   (CURLVL :FOREIGN-ADDRESS) (CURPBM :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (INDXQ :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (CUTPNT :FOREIGN-ADDRESS) (QSTORE :FOREIGN-ADDRESS)
   (QPTR :FOREIGN-ADDRESS) (PRMPTR :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (GIVNUM :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED7
    (ICOMPQ N QSIZ TLVLS CURLVL CURPBM D Q LDQ INDXQ RHO CUTPNT QSTORE
     QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED7)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) QSTORE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    QPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PRMPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF4650 ':INT32)
                              (N-REF4651 ':INT32)
                              (QSIZ-REF4652 ':INT32)
                              (TLVLS-REF4653 ':INT32)
                              (CURLVL-REF4654 ':INT32)
                              (CURPBM-REF4655 ':INT32)
                              (LDQ-REF4658 ':INT32)
                              (RHO-REF4660 ':DOUBLE)
                              (CUTPNT-REF4661 ':INT32)
                              (INFO-REF4671 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF4650 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4651 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF4652 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF4653 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF4654 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF4655 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4658 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF4660 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF4661 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4671 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4656 D)
                                            (Q-REF4657 Q)
                                            (INDXQ-REF4659 INDXQ)
                                            (QSTORE-REF4662 QSTORE)
                                            (QPTR-REF4663 QPTR)
                                            (PRMPTR-REF4664 PRMPTR)
                                            (PERM-REF4665 PERM)
                                            (GIVPTR-REF4666 GIVPTR)
                                            (GIVCOL-REF4667 GIVCOL)
                                            (GIVNUM-REF4668 GIVNUM)
                                            (WORK-REF4669 WORK)
                                            (IWORK-REF4670 IWORK))
      (%%DLAED7 ICOMPQ-REF4650 N-REF4651 QSIZ-REF4652 TLVLS-REF4653
       CURLVL-REF4654 CURPBM-REF4655 D-REF4656 Q-REF4657 LDQ-REF4658
       INDXQ-REF4659 RHO-REF4660 CUTPNT-REF4661 QSTORE-REF4662
       QPTR-REF4663 PRMPTR-REF4664 PERM-REF4665 GIVPTR-REF4666
       GIVCOL-REF4667 GIVNUM-REF4668 WORK-REF4669 IWORK-REF4670
       INFO-REF4671))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORBDB5 "sorbdb5_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORBDB5
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF4672 ':INT32) (M2-REF4673 ':INT32)
                              (N-REF4674 ':INT32)
                              (INCX1-REF4676 ':INT32)
                              (INCX2-REF4678 ':INT32)
                              (LDQ1-REF4680 ':INT32)
                              (LDQ2-REF4682 ':INT32)
                              (LWORK-REF4684 ':INT32)
                              (INFO-REF4685 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF4672 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF4673 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4674 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF4676 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF4678 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF4680 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF4682 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4684 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4685 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF4675 X1)
                                            (X2-REF4677 X2)
                                            (Q1-REF4679 Q1)
                                            (Q2-REF4681 Q2)
                                            (WORK-REF4683 WORK))
      (%%SORBDB5 M1-REF4672 M2-REF4673 N-REF4674 X1-REF4675
       INCX1-REF4676 X2-REF4677 INCX2-REF4678 Q1-REF4679 LDQ1-REF4680
       Q2-REF4681 LDQ2-REF4682 WORK-REF4683 LWORK-REF4684
       INFO-REF4685))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAPY3 "slapy3_")
  ((X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAPY3 (X Y Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPY3)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF4686 ':FLOAT) (Y-REF4687 ':FLOAT)
                              (Z-REF4688 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF4686 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF4687 :FLOAT) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF4688 :FLOAT) Z)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAPY3 X-REF4686 Y-REF4687 Z-REF4688))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYGV_2STAGE "ssygv_2stage_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYGV_2STAGE
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGV_2STAGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF4689 ':INT32)
                              (N-REF4692 ':INT32) (LDA-REF4694 ':INT32)
                              (LDB-REF4696 ':INT32)
                              (LWORK-REF4699 ':INT32)
                              (INFO-REF4700 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF4689 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4692 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4694 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4696 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4699 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4700 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4693 A)
                                            (B-REF4695 B)
                                            (W-REF4697 W)
                                            (WORK-REF4698 WORK))
      (%%SSYGV_2STAGE ITYPE-REF4689 JOBZ UPLO N-REF4692 A-REF4693
       LDA-REF4694 B-REF4695 LDB-REF4696 W-REF4697 WORK-REF4698
       LWORK-REF4699 INFO-REF4700))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEEVX "sgeevx_")
  ((BALANC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (ABNRM :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEEVX
    (BALANC JOBVL JOBVR SENSE N A LDA WR WI VL LDVL VR LDVR ILO IHI
     SCALE ABNRM RCONDE RCONDV WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4705 ':INT32) (LDA-REF4707 ':INT32)
                              (LDVL-REF4711 ':INT32)
                              (LDVR-REF4713 ':INT32)
                              (ILO-REF4714 ':INT32)
                              (IHI-REF4715 ':INT32)
                              (ABNRM-REF4717 ':FLOAT)
                              (LWORK-REF4721 ':INT32)
                              (INFO-REF4723 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4705 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4707 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4711 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4713 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF4714 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF4715 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF4717 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4721 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4723 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4706 A)
                                            (WR-REF4708 WR)
                                            (WI-REF4709 WI)
                                            (VL-REF4710 VL)
                                            (VR-REF4712 VR)
                                            (SCALE-REF4716 SCALE)
                                            (RCONDE-REF4718 RCONDE)
                                            (RCONDV-REF4719 RCONDV)
                                            (WORK-REF4720 WORK)
                                            (IWORK-REF4722 IWORK))
      (%%SGEEVX BALANC JOBVL JOBVR SENSE N-REF4705 A-REF4706
       LDA-REF4707 WR-REF4708 WI-REF4709 VL-REF4710 LDVL-REF4711
       VR-REF4712 LDVR-REF4713 ILO-REF4714 IHI-REF4715 SCALE-REF4716
       ABNRM-REF4717 RCONDE-REF4718 RCONDV-REF4719 WORK-REF4720
       LWORK-REF4721 IWORK-REF4722 INFO-REF4723))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBEVD "ssbevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBEVD
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4726 ':INT32) (KD-REF4727 ':INT32)
                              (LDAB-REF4729 ':INT32)
                              (LDZ-REF4732 ':INT32)
                              (LWORK-REF4734 ':INT32)
                              (LIWORK-REF4736 ':INT32)
                              (INFO-REF4737 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4726 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4727 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4729 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4732 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4734 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4736 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4737 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4728 AB)
                                            (W-REF4730 W)
                                            (Z-REF4731 Z)
                                            (WORK-REF4733 WORK)
                                            (IWORK-REF4735 IWORK))
      (%%SSBEVD JOBZ UPLO N-REF4726 KD-REF4727 AB-REF4728 LDAB-REF4729
       W-REF4730 Z-REF4731 LDZ-REF4732 WORK-REF4733 LWORK-REF4734
       IWORK-REF4735 LIWORK-REF4736 INFO-REF4737))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAMRG "dlamrg_")
  ((N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (DTRD1 :FOREIGN-ADDRESS) (DTRD2 :FOREIGN-ADDRESS)
   (INDEX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAMRG (N1 N2 A DTRD1 DTRD2 INDEX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMRG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF4738 ':INT32) (N2-REF4739 ':INT32)
                              (DTRD1-REF4741 ':INT32)
                              (DTRD2-REF4742 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF4738 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF4739 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DTRD1-REF4741 :INT32) DTRD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DTRD2-REF4742 :INT32) DTRD2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4740 A)
                                            (INDEX-REF4743 INDEX))
      (%%DLAMRG N1-REF4738 N2-REF4739 A-REF4740 DTRD1-REF4741
       DTRD2-REF4742 INDEX-REF4743))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANHF "clanhf_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANHF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4747 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4747 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4748 A)
                                            (WORK-REF4749 WORK))
      (%%CLANHF NORM TRANSR UPLO N-REF4747 A-REF4748 WORK-REF4749))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPCON "chpcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4751 ':INT32)
                              (ANORM-REF4754 ':FLOAT)
                              (RCOND-REF4755 ':FLOAT)
                              (INFO-REF4757 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4754 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4755 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4757 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4752 AP)
                                            (IPIV-REF4753 IPIV)
                                            (WORK-REF4756 WORK))
      (%%CHPCON UPLO N-REF4751 AP-REF4752 IPIV-REF4753 ANORM-REF4754
       RCOND-REF4755 WORK-REF4756 INFO-REF4757))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNGQR "zungqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4758 ':INT32) (N-REF4759 ':INT32)
                              (K-REF4760 ':INT32) (LDA-REF4762 ':INT32)
                              (LWORK-REF4765 ':INT32)
                              (INFO-REF4766 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4758 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4760 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4762 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4765 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4766 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4761 A)
                                            (TAU-REF4763 TAU)
                                            (WORK-REF4764 WORK))
      (%%ZUNGQR M-REF4758 N-REF4759 K-REF4760 A-REF4761 LDA-REF4762
       TAU-REF4763 WORK-REF4764 LWORK-REF4765 INFO-REF4766))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPBSV "dpbsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4768 ':INT32) (KD-REF4769 ':INT32)
                              (NRHS-REF4770 ':INT32)
                              (LDAB-REF4772 ':INT32)
                              (LDB-REF4774 ':INT32)
                              (INFO-REF4775 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4769 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4770 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4772 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4774 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4775 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4771 AB)
                                            (B-REF4773 B))
      (%%DPBSV UPLO N-REF4768 KD-REF4769 NRHS-REF4770 AB-REF4771
       LDAB-REF4772 B-REF4773 LDB-REF4774 INFO-REF4775))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESVX "sgesvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESVX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4778 ':INT32)
                              (NRHS-REF4779 ':INT32)
                              (LDA-REF4781 ':INT32)
                              (LDAF-REF4783 ':INT32)
                              (LDB-REF4789 ':INT32)
                              (LDX-REF4791 ':INT32)
                              (RCOND-REF4792 ':FLOAT)
                              (INFO-REF4797 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4779 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4781 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4783 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4789 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4791 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4792 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4797 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4780 A)
                                            (AF-REF4782 AF)
                                            (IPIV-REF4784 IPIV)
                                            (R-REF4786 R)
                                            (C-REF4787 C)
                                            (B-REF4788 B)
                                            (X-REF4790 X)
                                            (FERR-REF4793 FERR)
                                            (BERR-REF4794 BERR)
                                            (WORK-REF4795 WORK)
                                            (IWORK-REF4796 IWORK))
      (%%SGESVX FACT TRANS N-REF4778 NRHS-REF4779 A-REF4780 LDA-REF4781
       AF-REF4782 LDAF-REF4783 IPIV-REF4784 EQUED R-REF4786 C-REF4787
       B-REF4788 LDB-REF4789 X-REF4790 LDX-REF4791 RCOND-REF4792
       FERR-REF4793 BERR-REF4794 WORK-REF4795 IWORK-REF4796
       INFO-REF4797))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGTCON "zgtcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS)
   (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGTCON
    (NORM N DL D DU DU2 IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4799 ':INT32)
                              (ANORM-REF4805 ':DOUBLE)
                              (RCOND-REF4806 ':DOUBLE)
                              (INFO-REF4808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4799 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4805 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4806 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF4800 DL)
                                            (D-REF4801 D)
                                            (DU-REF4802 DU)
                                            (DU2-REF4803 DU2)
                                            (IPIV-REF4804 IPIV)
                                            (WORK-REF4807 WORK))
      (%%ZGTCON NORM N-REF4799 DL-REF4800 D-REF4801 DU-REF4802
       DU2-REF4803 IPIV-REF4804 ANORM-REF4805 RCOND-REF4806
       WORK-REF4807 INFO-REF4808))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASV2 "slasv2_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (SSMIN :FOREIGN-ADDRESS) (SSMAX :FOREIGN-ADDRESS)
   (SNR :FOREIGN-ADDRESS) (CSR :FOREIGN-ADDRESS) (SNL :FOREIGN-ADDRESS)
   (CSL :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASV2 (F G H SSMIN SSMAX SNR CSR SNL CSL)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASV2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT H)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMAX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSL))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF4809 ':FLOAT) (G-REF4810 ':FLOAT)
                              (H-REF4811 ':FLOAT)
                              (SSMIN-REF4812 ':FLOAT)
                              (SSMAX-REF4813 ':FLOAT)
                              (SNR-REF4814 ':FLOAT)
                              (CSR-REF4815 ':FLOAT)
                              (SNL-REF4816 ':FLOAT)
                              (CSL-REF4817 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF4809 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF4810 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF4811 :FLOAT) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF4812 :FLOAT) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF4813 :FLOAT) SSMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF4814 :FLOAT) SNR)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF4815 :FLOAT) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF4816 :FLOAT) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF4817 :FLOAT) CSL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLASV2 F-REF4809 G-REF4810 H-REF4811 SSMIN-REF4812
       SSMAX-REF4813 SNR-REF4814 CSR-REF4815 SNL-REF4816 CSL-REF4817))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%DLA_SYRFSX_EXTENDED "dla_syrfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_SYRFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y LDY
     BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL
     RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF4818 ':INT32)
                              (N-REF4820 ':INT32)
                              (NRHS-REF4821 ':INT32)
                              (LDA-REF4823 ':INT32)
                              (LDAF-REF4825 ':INT32)
                              (COLEQU-REF4827 ':INT32)
                              (LDB-REF4830 ':INT32)
                              (LDY-REF4832 ':INT32)
                              (N_NORMS-REF4834 ':INT32)
                              (RCOND-REF4841 ':DOUBLE)
                              (ITHRESH-REF4842 ':INT32)
                              (RTHRESH-REF4843 ':DOUBLE)
                              (DZ_UB-REF4844 ':DOUBLE)
                              (IGNORE_CWISE-REF4845 ':INT32)
                              (INFO-REF4846 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF4818 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4820 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4821 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4823 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4825 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF4827 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4830 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF4832 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF4834 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4841 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF4842 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF4843 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF4844 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF4845 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4846 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4822 A)
                                            (AF-REF4824 AF)
                                            (IPIV-REF4826 IPIV)
                                            (C-REF4828 C)
                                            (B-REF4829 B)
                                            (Y-REF4831 Y)
                                            (BERR_OUT-REF4833 BERR_OUT)
                                            (ERR_BNDS_NORM-REF4835
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4836
                                             ERR_BNDS_COMP)
                                            (RES-REF4837 RES)
                                            (AYB-REF4838 AYB)
                                            (DY-REF4839 DY)
                                            (Y_TAIL-REF4840 Y_TAIL))
      (%%DLA_SYRFSX_EXTENDED PREC_TYPE-REF4818 UPLO N-REF4820
       NRHS-REF4821 A-REF4822 LDA-REF4823 AF-REF4824 LDAF-REF4825
       IPIV-REF4826 COLEQU-REF4827 C-REF4828 B-REF4829 LDB-REF4830
       Y-REF4831 LDY-REF4832 BERR_OUT-REF4833 N_NORMS-REF4834
       ERR_BNDS_NORM-REF4835 ERR_BNDS_COMP-REF4836 RES-REF4837
       AYB-REF4838 DY-REF4839 Y_TAIL-REF4840 RCOND-REF4841
       ITHRESH-REF4842 RTHRESH-REF4843 DZ_UB-REF4844
       IGNORE_CWISE-REF4845 INFO-REF4846))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPPCON "cppcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPPCON (UPLO N AP ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4848 ':INT32)
                              (ANORM-REF4850 ':FLOAT)
                              (RCOND-REF4851 ':FLOAT)
                              (INFO-REF4854 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4848 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4850 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4851 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4854 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4849 AP)
                                            (WORK-REF4852 WORK)
                                            (RWORK-REF4853 RWORK))
      (%%CPPCON UPLO N-REF4848 AP-REF4849 ANORM-REF4850 RCOND-REF4851
       WORK-REF4852 RWORK-REF4853 INFO-REF4854))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPQRT "ztpqrt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPQRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4855 ':INT32) (N-REF4856 ':INT32)
                              (L-REF4857 ':INT32) (NB-REF4858 ':INT32)
                              (LDA-REF4860 ':INT32)
                              (LDB-REF4862 ':INT32)
                              (LDT-REF4864 ':INT32)
                              (INFO-REF4866 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4855 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4856 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4857 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4858 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4860 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4862 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4864 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4866 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4859 A)
                                            (B-REF4861 B)
                                            (T-REF4863 T)
                                            (WORK-REF4865 WORK))
      (%%ZTPQRT M-REF4855 N-REF4856 L-REF4857 NB-REF4858 A-REF4859
       LDA-REF4860 B-REF4861 LDB-REF4862 T-REF4863 LDT-REF4864
       WORK-REF4865 INFO-REF4866))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEEQU "zgeequ_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4867 ':INT32) (N-REF4868 ':INT32)
                              (LDA-REF4870 ':INT32)
                              (ROWCND-REF4873 ':DOUBLE)
                              (COLCND-REF4874 ':DOUBLE)
                              (AMAX-REF4875 ':DOUBLE)
                              (INFO-REF4876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4867 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4870 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF4873 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF4874 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4875 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4869 A)
                                            (R-REF4871 R)
                                            (C-REF4872 C))
      (%%ZGEEQU M-REF4867 N-REF4868 A-REF4869 LDA-REF4870 R-REF4871
       C-REF4872 ROWCND-REF4873 COLCND-REF4874 AMAX-REF4875
       INFO-REF4876))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED1 "slaed1_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (INDXQ :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (CUTPNT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED1 (N D Q LDQ INDXQ RHO CUTPNT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4877 ':INT32) (LDQ-REF4880 ':INT32)
                              (RHO-REF4882 ':FLOAT)
                              (CUTPNT-REF4883 ':INT32)
                              (INFO-REF4886 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4880 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF4882 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF4883 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4886 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4878 D)
                                            (Q-REF4879 Q)
                                            (INDXQ-REF4881 INDXQ)
                                            (WORK-REF4884 WORK)
                                            (IWORK-REF4885 IWORK))
      (%%SLAED1 N-REF4877 D-REF4878 Q-REF4879 LDQ-REF4880 INDXQ-REF4881
       RHO-REF4882 CUTPNT-REF4883 WORK-REF4884 IWORK-REF4885
       INFO-REF4886))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGSVJ0 "sgsvj0_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (EPS :FOREIGN-ADDRESS)
   (SFMIN :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (NSWEEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGSVJ0
    (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGSVJ0)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4888 ':INT32) (N-REF4889 ':INT32)
                              (LDA-REF4891 ':INT32)
                              (MV-REF4894 ':INT32)
                              (LDV-REF4896 ':INT32)
                              (EPS-REF4897 ':FLOAT)
                              (SFMIN-REF4898 ':FLOAT)
                              (TOL-REF4899 ':FLOAT)
                              (NSWEEP-REF4900 ':INT32)
                              (LWORK-REF4902 ':INT32)
                              (INFO-REF4903 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4888 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4889 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4891 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF4894 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF4896 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF4897 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF4898 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4899 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF4900 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4902 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4903 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4890 A)
                                            (D-REF4892 D)
                                            (SVA-REF4893 SVA)
                                            (V-REF4895 V)
                                            (WORK-REF4901 WORK))
      (%%SGSVJ0 JOBV M-REF4888 N-REF4889 A-REF4890 LDA-REF4891
       D-REF4892 SVA-REF4893 MV-REF4894 V-REF4895 LDV-REF4896
       EPS-REF4897 SFMIN-REF4898 TOL-REF4899 NSWEEP-REF4900
       WORK-REF4901 LWORK-REF4902 INFO-REF4903))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEEVD_2STAGE "cheevd_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (LRWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEEVD_2STAGE
    (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4906 ':INT32) (LDA-REF4908 ':INT32)
                              (LWORK-REF4911 ':INT32)
                              (LRWORK-REF4913 ':INT32)
                              (LIWORK-REF4915 ':INT32)
                              (INFO-REF4916 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4906 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4908 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4911 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF4913 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4915 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4916 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4907 A)
                                            (W-REF4909 W)
                                            (WORK-REF4910 WORK)
                                            (RWORK-REF4912 RWORK)
                                            (IWORK-REF4914 IWORK))
      (%%CHEEVD_2STAGE JOBZ UPLO N-REF4906 A-REF4907 LDA-REF4908
       W-REF4909 WORK-REF4910 LWORK-REF4911 RWORK-REF4912
       LRWORK-REF4913 IWORK-REF4914 LIWORK-REF4915 INFO-REF4916))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CLA_SYRFSX_EXTENDED "cla_syrfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_SYRFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y LDY
     BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL
     RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF4917 ':INT32)
                              (N-REF4919 ':INT32)
                              (NRHS-REF4920 ':INT32)
                              (LDA-REF4922 ':INT32)
                              (LDAF-REF4924 ':INT32)
                              (COLEQU-REF4926 ':INT32)
                              (LDB-REF4929 ':INT32)
                              (LDY-REF4931 ':INT32)
                              (N_NORMS-REF4933 ':INT32)
                              (RCOND-REF4940 ':FLOAT)
                              (ITHRESH-REF4941 ':INT32)
                              (RTHRESH-REF4942 ':FLOAT)
                              (DZ_UB-REF4943 ':FLOAT)
                              (IGNORE_CWISE-REF4944 ':INT32)
                              (INFO-REF4945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF4917 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4919 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4920 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4922 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4924 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF4926 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4929 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF4931 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF4933 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4940 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF4941 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF4942 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF4943 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF4944 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4945 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4921 A)
                                            (AF-REF4923 AF)
                                            (IPIV-REF4925 IPIV)
                                            (C-REF4927 C)
                                            (B-REF4928 B)
                                            (Y-REF4930 Y)
                                            (BERR_OUT-REF4932 BERR_OUT)
                                            (ERR_BNDS_NORM-REF4934
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4935
                                             ERR_BNDS_COMP)
                                            (RES-REF4936 RES)
                                            (AYB-REF4937 AYB)
                                            (DY-REF4938 DY)
                                            (Y_TAIL-REF4939 Y_TAIL))
      (%%CLA_SYRFSX_EXTENDED PREC_TYPE-REF4917 UPLO N-REF4919
       NRHS-REF4920 A-REF4921 LDA-REF4922 AF-REF4923 LDAF-REF4924
       IPIV-REF4925 COLEQU-REF4926 C-REF4927 B-REF4928 LDB-REF4929
       Y-REF4930 LDY-REF4931 BERR_OUT-REF4932 N_NORMS-REF4933
       ERR_BNDS_NORM-REF4934 ERR_BNDS_COMP-REF4935 RES-REF4936
       AYB-REF4937 DY-REF4938 Y_TAIL-REF4939 RCOND-REF4940
       ITHRESH-REF4941 RTHRESH-REF4942 DZ_UB-REF4943
       IGNORE_CWISE-REF4944 INFO-REF4945))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOTF2 "spotf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4947 ':INT32) (LDA-REF4949 ':INT32)
                              (INFO-REF4950 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4947 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4949 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4950 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4948 A))
      (%%SPOTF2 UPLO N-REF4947 A-REF4948 LDA-REF4949 INFO-REF4950))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPOCON "dpocon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPOCON (UPLO N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4952 ':INT32) (LDA-REF4954 ':INT32)
                              (ANORM-REF4955 ':DOUBLE)
                              (RCOND-REF4956 ':DOUBLE)
                              (INFO-REF4959 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4952 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4954 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4955 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4956 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4959 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4953 A)
                                            (WORK-REF4957 WORK)
                                            (IWORK-REF4958 IWORK))
      (%%DPOCON UPLO N-REF4952 A-REF4953 LDA-REF4954 ANORM-REF4955
       RCOND-REF4956 WORK-REF4957 IWORK-REF4958 INFO-REF4959))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEGVD "zhegvd_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEGVD
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGVD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF4960 ':INT32)
                              (N-REF4963 ':INT32) (LDA-REF4965 ':INT32)
                              (LDB-REF4967 ':INT32)
                              (LWORK-REF4970 ':INT32)
                              (LRWORK-REF4972 ':INT32)
                              (LIWORK-REF4974 ':INT32)
                              (INFO-REF4975 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF4960 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4963 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4965 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4967 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4970 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF4972 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4974 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4975 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4964 A)
                                            (B-REF4966 B)
                                            (W-REF4968 W)
                                            (WORK-REF4969 WORK)
                                            (RWORK-REF4971 RWORK)
                                            (IWORK-REF4973 IWORK))
      (%%ZHEGVD ITYPE-REF4960 JOBZ UPLO N-REF4963 A-REF4964 LDA-REF4965
       B-REF4966 LDB-REF4967 W-REF4968 WORK-REF4969 LWORK-REF4970
       RWORK-REF4971 LRWORK-REF4972 IWORK-REF4973 LIWORK-REF4974
       INFO-REF4975))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGETRI "zgetri_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4976 ':INT32) (LDA-REF4978 ':INT32)
                              (LWORK-REF4981 ':INT32)
                              (INFO-REF4982 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4976 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4978 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4981 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4982 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4977 A)
                                            (IPIV-REF4979 IPIV)
                                            (WORK-REF4980 WORK))
      (%%ZGETRI N-REF4976 A-REF4977 LDA-REF4978 IPIV-REF4979
       WORK-REF4980 LWORK-REF4981 INFO-REF4982))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYSVX "zsysvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYSVX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR BERR
     WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4985 ':INT32)
                              (NRHS-REF4986 ':INT32)
                              (LDA-REF4988 ':INT32)
                              (LDAF-REF4990 ':INT32)
                              (LDB-REF4993 ':INT32)
                              (LDX-REF4995 ':INT32)
                              (RCOND-REF4996 ':DOUBLE)
                              (LWORK-REF5000 ':INT32)
                              (INFO-REF5002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4985 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4986 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4988 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4990 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4993 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4995 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4996 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5000 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4987 A)
                                            (AF-REF4989 AF)
                                            (IPIV-REF4991 IPIV)
                                            (B-REF4992 B)
                                            (X-REF4994 X)
                                            (FERR-REF4997 FERR)
                                            (BERR-REF4998 BERR)
                                            (WORK-REF4999 WORK)
                                            (RWORK-REF5001 RWORK))
      (%%ZSYSVX FACT UPLO N-REF4985 NRHS-REF4986 A-REF4987 LDA-REF4988
       AF-REF4989 LDAF-REF4990 IPIV-REF4991 B-REF4992 LDB-REF4993
       X-REF4994 LDX-REF4995 RCOND-REF4996 FERR-REF4997 BERR-REF4998
       WORK-REF4999 LWORK-REF5000 RWORK-REF5001 INFO-REF5002))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%DLA_GERFSX_EXTENDED "dla_gerfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS) (TRANS_TYPE :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERRS_N :FOREIGN-ADDRESS) (ERRS_C :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_GERFSX_EXTENDED
    (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
     LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL RCOND ITHRESH
     RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERRS_N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERRS_C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF5003 ':INT32)
                              (TRANS_TYPE-REF5004 ':INT32)
                              (N-REF5005 ':INT32)
                              (NRHS-REF5006 ':INT32)
                              (LDA-REF5008 ':INT32)
                              (LDAF-REF5010 ':INT32)
                              (COLEQU-REF5012 ':INT32)
                              (LDB-REF5015 ':INT32)
                              (LDY-REF5017 ':INT32)
                              (N_NORMS-REF5019 ':INT32)
                              (RCOND-REF5026 ':DOUBLE)
                              (ITHRESH-REF5027 ':INT32)
                              (RTHRESH-REF5028 ':DOUBLE)
                              (DZ_UB-REF5029 ':DOUBLE)
                              (IGNORE_CWISE-REF5030 ':INT32)
                              (INFO-REF5031 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF5003 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF5004 :INT32)
                      TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5005 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5006 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5008 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF5010 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF5012 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5015 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF5017 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF5019 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5026 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF5027 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF5028 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF5029 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF5030 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5031 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5007 A)
                                            (AF-REF5009 AF)
                                            (IPIV-REF5011 IPIV)
                                            (C-REF5013 C)
                                            (B-REF5014 B)
                                            (Y-REF5016 Y)
                                            (BERR_OUT-REF5018 BERR_OUT)
                                            (ERRS_N-REF5020 ERRS_N)
                                            (ERRS_C-REF5021 ERRS_C)
                                            (RES-REF5022 RES)
                                            (AYB-REF5023 AYB)
                                            (DY-REF5024 DY)
                                            (Y_TAIL-REF5025 Y_TAIL))
      (%%DLA_GERFSX_EXTENDED PREC_TYPE-REF5003 TRANS_TYPE-REF5004
       N-REF5005 NRHS-REF5006 A-REF5007 LDA-REF5008 AF-REF5009
       LDAF-REF5010 IPIV-REF5011 COLEQU-REF5012 C-REF5013 B-REF5014
       LDB-REF5015 Y-REF5016 LDY-REF5017 BERR_OUT-REF5018
       N_NORMS-REF5019 ERRS_N-REF5020 ERRS_C-REF5021 RES-REF5022
       AYB-REF5023 DY-REF5024 Y_TAIL-REF5025 RCOND-REF5026
       ITHRESH-REF5027 RTHRESH-REF5028 DZ_UB-REF5029
       IGNORE_CWISE-REF5030 INFO-REF5031))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGTCON "sgtcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS)
   (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGTCON
    (NORM N DL D DU DU2 IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5033 ':INT32)
                              (ANORM-REF5039 ':FLOAT)
                              (RCOND-REF5040 ':FLOAT)
                              (INFO-REF5043 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5033 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5039 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5040 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5043 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF5034 DL)
                                            (D-REF5035 D)
                                            (DU-REF5036 DU)
                                            (DU2-REF5037 DU2)
                                            (IPIV-REF5038 IPIV)
                                            (WORK-REF5041 WORK)
                                            (IWORK-REF5042 IWORK))
      (%%SGTCON NORM N-REF5033 DL-REF5034 D-REF5035 DU-REF5036
       DU2-REF5037 IPIV-REF5038 ANORM-REF5039 RCOND-REF5040
       WORK-REF5041 IWORK-REF5042 INFO-REF5043))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GEAMV "zla_geamv_")
  ((TRANS :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GEAMV
    (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GEAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF5044 ':INT32)
                              (M-REF5045 ':INT32) (N-REF5046 ':INT32)
                              (ALPHA-REF5047 ':DOUBLE)
                              (LDA-REF5049 ':INT32)
                              (INCX-REF5051 ':INT32)
                              (BETA-REF5052 ':DOUBLE)
                              (INCY-REF5054 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF5044 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5045 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5046 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF5047 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5049 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF5051 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF5052 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF5054 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5048 A)
                                            (X-REF5050 X)
                                            (Y-REF5053 Y))
      (%%ZLA_GEAMV TRANS-REF5044 M-REF5045 N-REF5046 ALPHA-REF5047
       A-REF5048 LDA-REF5049 X-REF5050 INCX-REF5051 BETA-REF5052
       Y-REF5053 INCY-REF5054))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEEVR_2STAGE "cheevr_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEEVR_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
     LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVR_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5058 ':INT32) (LDA-REF5060 ':INT32)
                              (VL-REF5061 ':FLOAT) (VU-REF5062 ':FLOAT)
                              (IL-REF5063 ':INT32) (IU-REF5064 ':INT32)
                              (ABSTOL-REF5065 ':FLOAT)
                              (M-REF5066 ':INT32) (LDZ-REF5069 ':INT32)
                              (LWORK-REF5072 ':INT32)
                              (LRWORK-REF5074 ':INT32)
                              (LIWORK-REF5076 ':INT32)
                              (INFO-REF5077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5060 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5061 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5062 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF5063 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF5064 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF5065 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5066 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5069 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5072 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5074 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF5076 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5077 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5059 A)
                                            (W-REF5067 W)
                                            (Z-REF5068 Z)
                                            (ISUPPZ-REF5070 ISUPPZ)
                                            (WORK-REF5071 WORK)
                                            (RWORK-REF5073 RWORK)
                                            (IWORK-REF5075 IWORK))
      (%%CHEEVR_2STAGE JOBZ RANGE UPLO N-REF5058 A-REF5059 LDA-REF5060
       VL-REF5061 VU-REF5062 IL-REF5063 IU-REF5064 ABSTOL-REF5065
       M-REF5066 W-REF5067 Z-REF5068 LDZ-REF5069 ISUPPZ-REF5070
       WORK-REF5071 LWORK-REF5072 RWORK-REF5073 LRWORK-REF5074
       IWORK-REF5075 LIWORK-REF5076 INFO-REF5077))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAG2S "dlag2s_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS) (LDSA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAG2S (M N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5078 ':INT32) (N-REF5079 ':INT32)
                              (LDA-REF5081 ':INT32)
                              (LDSA-REF5083 ':INT32)
                              (INFO-REF5084 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5078 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5079 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5081 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF5083 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5084 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5080 A)
                                            (SA-REF5082 SA))
      (%%DLAG2S M-REF5078 N-REF5079 A-REF5080 LDA-REF5081 SA-REF5082
       LDSA-REF5083 INFO-REF5084))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPPTRI "zpptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5086 ':INT32)
                              (INFO-REF5088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5088 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5087 AP))
      (%%ZPPTRI UPLO N-REF5086 AP-REF5087 INFO-REF5088))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLACON "slacon_")
  ((N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (ISGN :FOREIGN-ADDRESS) (EST :FOREIGN-ADDRESS)
   (KASE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLACON (N V X ISGN EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACON)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISGN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5089 ':INT32) (EST-REF5093 ':FLOAT)
                              (KASE-REF5094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5089 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF5093 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF5094 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5090 V)
                                            (X-REF5091 X)
                                            (ISGN-REF5092 ISGN))
      (%%SLACON N-REF5089 V-REF5090 X-REF5091 ISGN-REF5092 EST-REF5093
       KASE-REF5094))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPLQT "ctplqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPLQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5095 ':INT32) (N-REF5096 ':INT32)
                              (L-REF5097 ':INT32) (MB-REF5098 ':INT32)
                              (LDA-REF5100 ':INT32)
                              (LDB-REF5102 ':INT32)
                              (LDT-REF5104 ':INT32)
                              (INFO-REF5106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5095 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5096 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5097 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5098 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5100 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5102 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5104 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5099 A)
                                            (B-REF5101 B)
                                            (T-REF5103 T)
                                            (WORK-REF5105 WORK))
      (%%CTPLQT M-REF5095 N-REF5096 L-REF5097 MB-REF5098 A-REF5099
       LDA-REF5100 B-REF5101 LDB-REF5102 T-REF5103 LDT-REF5104
       WORK-REF5105 INFO-REF5106))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHECON_ROOK "zhecon_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHECON_ROOK
    (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5108 ':INT32) (LDA-REF5110 ':INT32)
                              (ANORM-REF5112 ':DOUBLE)
                              (RCOND-REF5113 ':DOUBLE)
                              (INFO-REF5115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5110 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5112 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5113 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5109 A)
                                            (IPIV-REF5111 IPIV)
                                            (WORK-REF5114 WORK))
      (%%ZHECON_ROOK UPLO N-REF5108 A-REF5109 LDA-REF5110 IPIV-REF5111
       ANORM-REF5112 RCOND-REF5113 WORK-REF5114 INFO-REF5115))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CROT "crot_")
  ((N :FOREIGN-ADDRESS) (CX :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (CY :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CROT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5116 ':INT32)
                              (INCX-REF5118 ':INT32)
                              (INCY-REF5120 ':INT32)
                              (C-REF5121 ':FLOAT)
                              (S-REF5122
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5116 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF5118 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF5120 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF5121 :FLOAT) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S-REF5122
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF5117 CX)
                                            (CY-REF5119 CY))
      (%%CROT N-REF5116 CX-REF5117 INCX-REF5118 CY-REF5119 INCY-REF5120
       C-REF5121 S-REF5122))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRSYL "ztrsyl_")
  ((TRANA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ISGN :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRSYL
    (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF5125 ':INT32)
                              (M-REF5126 ':INT32) (N-REF5127 ':INT32)
                              (LDA-REF5129 ':INT32)
                              (LDB-REF5131 ':INT32)
                              (LDC-REF5133 ':INT32)
                              (SCALE-REF5134 ':DOUBLE)
                              (INFO-REF5135 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF5125 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5126 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5127 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5129 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5131 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5133 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5134 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5135 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5128 A)
                                            (B-REF5130 B)
                                            (C-REF5132 C))
      (%%ZTRSYL TRANA TRANB ISGN-REF5125 M-REF5126 N-REF5127 A-REF5128
       LDA-REF5129 B-REF5130 LDB-REF5131 C-REF5132 LDC-REF5133
       SCALE-REF5134 INFO-REF5135))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARSCL2 "clarscl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARSCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5136 ':INT32) (N-REF5137 ':INT32)
                              (LDX-REF5140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5136 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5137 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5140 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5138 D)
                                            (X-REF5139 X))
      (%%CLARSCL2 M-REF5136 N-REF5137 D-REF5138 X-REF5139
       LDX-REF5140))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASR "clasr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (PIVOT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5144 ':INT32) (N-REF5145 ':INT32)
                              (LDA-REF5149 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5144 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5149 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF5146 C)
                                            (S-REF5147 S)
                                            (A-REF5148 A))
      (%%CLASR SIDE PIVOT DIRECT M-REF5144 N-REF5145 C-REF5146
       S-REF5147 A-REF5148 LDA-REF5149))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRD_2STAGE "ssytrd_2stage_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (HOUS2 :FOREIGN-ADDRESS)
   (LHOUS2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRD_2STAGE
    (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) HOUS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5152 ':INT32) (LDA-REF5154 ':INT32)
                              (LHOUS2-REF5159 ':INT32)
                              (LWORK-REF5161 ':INT32)
                              (INFO-REF5162 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5152 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5154 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF5159 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5161 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5162 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5153 A)
                                            (D-REF5155 D)
                                            (E-REF5156 E)
                                            (TAU-REF5157 TAU)
                                            (HOUS2-REF5158 HOUS2)
                                            (WORK-REF5160 WORK))
      (%%SSYTRD_2STAGE VECT UPLO N-REF5152 A-REF5153 LDA-REF5154
       D-REF5155 E-REF5156 TAU-REF5157 HOUS2-REF5158 LHOUS2-REF5159
       WORK-REF5160 LWORK-REF5161 INFO-REF5162))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBEVX_2STAGE "ssbevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBEVX_2STAGE
    (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5166 ':INT32) (KD-REF5167 ':INT32)
                              (LDAB-REF5169 ':INT32)
                              (LDQ-REF5171 ':INT32)
                              (VL-REF5172 ':FLOAT) (VU-REF5173 ':FLOAT)
                              (IL-REF5174 ':INT32) (IU-REF5175 ':INT32)
                              (ABSTOL-REF5176 ':FLOAT)
                              (M-REF5177 ':INT32) (LDZ-REF5180 ':INT32)
                              (LWORK-REF5182 ':INT32)
                              (INFO-REF5185 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF5167 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5169 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5171 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5172 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5173 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF5174 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF5175 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF5176 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5177 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5180 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5182 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5185 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5168 AB)
                                            (Q-REF5170 Q)
                                            (W-REF5178 W)
                                            (Z-REF5179 Z)
                                            (WORK-REF5181 WORK)
                                            (IWORK-REF5183 IWORK)
                                            (IFAIL-REF5184 IFAIL))
      (%%SSBEVX_2STAGE JOBZ RANGE UPLO N-REF5166 KD-REF5167 AB-REF5168
       LDAB-REF5169 Q-REF5170 LDQ-REF5171 VL-REF5172 VU-REF5173
       IL-REF5174 IU-REF5175 ABSTOL-REF5176 M-REF5177 W-REF5178
       Z-REF5179 LDZ-REF5180 WORK-REF5181 LWORK-REF5182 IWORK-REF5183
       IFAIL-REF5184 INFO-REF5185))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRV "slarrv_")
  ((N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (DOL :FOREIGN-ADDRESS) (DOU :FOREIGN-ADDRESS)
   (MINRGP :FOREIGN-ADDRESS) (RTOL1 :FOREIGN-ADDRESS)
   (RTOL2 :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WERR :FOREIGN-ADDRESS) (WGAP :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (INDEXW :FOREIGN-ADDRESS)
   (GERS :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRV
    (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W WERR WGAP
     IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINRGP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GERS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5186 ':INT32) (VL-REF5187 ':FLOAT)
                              (VU-REF5188 ':FLOAT)
                              (PIVMIN-REF5191 ':FLOAT)
                              (M-REF5193 ':INT32) (DOL-REF5194 ':INT32)
                              (DOU-REF5195 ':INT32)
                              (MINRGP-REF5196 ':FLOAT)
                              (RTOL1-REF5197 ':FLOAT)
                              (RTOL2-REF5198 ':FLOAT)
                              (LDZ-REF5206 ':INT32)
                              (INFO-REF5210 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5187 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5188 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF5191 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5193 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF5194 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF5195 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF5196 :FLOAT) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF5197 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF5198 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5206 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5210 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5189 D)
                                            (L-REF5190 L)
                                            (ISPLIT-REF5192 ISPLIT)
                                            (W-REF5199 W)
                                            (WERR-REF5200 WERR)
                                            (WGAP-REF5201 WGAP)
                                            (IBLOCK-REF5202 IBLOCK)
                                            (INDEXW-REF5203 INDEXW)
                                            (GERS-REF5204 GERS)
                                            (Z-REF5205 Z)
                                            (ISUPPZ-REF5207 ISUPPZ)
                                            (WORK-REF5208 WORK)
                                            (IWORK-REF5209 IWORK))
      (%%SLARRV N-REF5186 VL-REF5187 VU-REF5188 D-REF5189 L-REF5190
       PIVMIN-REF5191 ISPLIT-REF5192 M-REF5193 DOL-REF5194 DOU-REF5195
       MINRGP-REF5196 RTOL1-REF5197 RTOL2-REF5198 W-REF5199
       WERR-REF5200 WGAP-REF5201 IBLOCK-REF5202 INDEXW-REF5203
       GERS-REF5204 Z-REF5205 LDZ-REF5206 ISUPPZ-REF5207 WORK-REF5208
       IWORK-REF5209 INFO-REF5210))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORBDB3 "dorbdb3_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORBDB3
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5211 ':INT32) (P-REF5212 ':INT32)
                              (Q-REF5213 ':INT32)
                              (LDX11-REF5215 ':INT32)
                              (LDX21-REF5217 ':INT32)
                              (LWORK-REF5224 ':INT32)
                              (INFO-REF5225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5211 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5212 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5213 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5215 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5217 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5224 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5214 X11)
                                            (X21-REF5216 X21)
                                            (THETA-REF5218 THETA)
                                            (PHI-REF5219 PHI)
                                            (TAUP1-REF5220 TAUP1)
                                            (TAUP2-REF5221 TAUP2)
                                            (TAUQ1-REF5222 TAUQ1)
                                            (WORK-REF5223 WORK))
      (%%DORBDB3 M-REF5211 P-REF5212 Q-REF5213 X11-REF5214
       LDX11-REF5215 X21-REF5216 LDX21-REF5217 THETA-REF5218
       PHI-REF5219 TAUP1-REF5220 TAUP2-REF5221 TAUQ1-REF5222
       WORK-REF5223 LWORK-REF5224 INFO-REF5225))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPPCON "dppcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPPCON (UPLO N AP ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5227 ':INT32)
                              (ANORM-REF5229 ':DOUBLE)
                              (RCOND-REF5230 ':DOUBLE)
                              (INFO-REF5233 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5227 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5229 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5230 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5233 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5228 AP)
                                            (WORK-REF5231 WORK)
                                            (IWORK-REF5232 IWORK))
      (%%DPPCON UPLO N-REF5227 AP-REF5228 ANORM-REF5229 RCOND-REF5230
       WORK-REF5231 IWORK-REF5232 INFO-REF5233))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHECON_3 "checon_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHECON_3
    (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5235 ':INT32) (LDA-REF5237 ':INT32)
                              (ANORM-REF5240 ':FLOAT)
                              (RCOND-REF5241 ':FLOAT)
                              (INFO-REF5243 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5235 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5237 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5240 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5241 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5243 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5236 A)
                                            (E-REF5238 E)
                                            (IPIV-REF5239 IPIV)
                                            (WORK-REF5242 WORK))
      (%%CHECON_3 UPLO N-REF5235 A-REF5236 LDA-REF5237 E-REF5238
       IPIV-REF5239 ANORM-REF5240 RCOND-REF5241 WORK-REF5242
       INFO-REF5243))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAHQR "slahqr_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (ILOZ :FOREIGN-ADDRESS)
   (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAHQR
    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAHQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF5244 ':INT32)
                              (WANTZ-REF5245 ':INT32)
                              (N-REF5246 ':INT32) (ILO-REF5247 ':INT32)
                              (IHI-REF5248 ':INT32)
                              (LDH-REF5250 ':INT32)
                              (ILOZ-REF5253 ':INT32)
                              (IHIZ-REF5254 ':INT32)
                              (LDZ-REF5256 ':INT32)
                              (INFO-REF5257 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF5244 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF5245 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5247 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5248 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF5250 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF5253 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF5254 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5256 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5257 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF5249 H)
                                            (WR-REF5251 WR)
                                            (WI-REF5252 WI)
                                            (Z-REF5255 Z))
      (%%SLAHQR WANTT-REF5244 WANTZ-REF5245 N-REF5246 ILO-REF5247
       IHI-REF5248 H-REF5249 LDH-REF5250 WR-REF5251 WI-REF5252
       ILOZ-REF5253 IHIZ-REF5254 Z-REF5255 LDZ-REF5256 INFO-REF5257))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPOSVXX "dposvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPOSVXX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND RPVGRW
     BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5260 ':INT32)
                              (NRHS-REF5261 ':INT32)
                              (LDA-REF5263 ':INT32)
                              (LDAF-REF5265 ':INT32)
                              (LDB-REF5269 ':INT32)
                              (LDX-REF5271 ':INT32)
                              (RCOND-REF5272 ':DOUBLE)
                              (RPVGRW-REF5273 ':DOUBLE)
                              (N_ERR_BNDS-REF5275 ':INT32)
                              (NPARAMS-REF5278 ':INT32)
                              (INFO-REF5282 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5260 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5261 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5263 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF5265 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5269 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5271 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5272 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF5273 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5275 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5278 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5282 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5262 A)
                                            (AF-REF5264 AF)
                                            (S-REF5267 S)
                                            (B-REF5268 B)
                                            (X-REF5270 X)
                                            (BERR-REF5274 BERR)
                                            (ERR_BNDS_NORM-REF5276
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF5277
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF5279 PARAMS)
                                            (WORK-REF5280 WORK)
                                            (IWORK-REF5281 IWORK))
      (%%DPOSVXX FACT UPLO N-REF5260 NRHS-REF5261 A-REF5262 LDA-REF5263
       AF-REF5264 LDAF-REF5265 EQUED S-REF5267 B-REF5268 LDB-REF5269
       X-REF5270 LDX-REF5271 RCOND-REF5272 RPVGRW-REF5273 BERR-REF5274
       N_ERR_BNDS-REF5275 ERR_BNDS_NORM-REF5276 ERR_BNDS_COMP-REF5277
       NPARAMS-REF5278 PARAMS-REF5279 WORK-REF5280 IWORK-REF5281
       INFO-REF5282))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHESV_RK "zhesv_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESV_RK
    (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5284 ':INT32)
                              (NRHS-REF5285 ':INT32)
                              (LDA-REF5287 ':INT32)
                              (LDB-REF5291 ':INT32)
                              (LWORK-REF5293 ':INT32)
                              (INFO-REF5294 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5284 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5285 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5287 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5291 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5293 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5294 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5286 A)
                                            (E-REF5288 E)
                                            (IPIV-REF5289 IPIV)
                                            (B-REF5290 B)
                                            (WORK-REF5292 WORK))
      (%%ZHESV_RK UPLO N-REF5284 NRHS-REF5285 A-REF5286 LDA-REF5287
       E-REF5288 IPIV-REF5289 B-REF5290 LDB-REF5291 WORK-REF5292
       LWORK-REF5293 INFO-REF5294))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQR "cgeqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (TSIZE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5295 ':INT32) (N-REF5296 ':INT32)
                              (LDA-REF5298 ':INT32)
                              (TSIZE-REF5300 ':INT32)
                              (LWORK-REF5302 ':INT32)
                              (INFO-REF5303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5295 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5296 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5298 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF5300 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5302 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5303 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5297 A)
                                            (T-REF5299 T)
                                            (WORK-REF5301 WORK))
      (%%CGEQR M-REF5295 N-REF5296 A-REF5297 LDA-REF5298 T-REF5299
       TSIZE-REF5300 WORK-REF5301 LWORK-REF5302 INFO-REF5303))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLACGV "clacgv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLACGV (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5304 ':INT32)
                              (INCX-REF5306 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5304 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF5306 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF5305 X))
      (%%CLACGV N-REF5304 X-REF5305 INCX-REF5306))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORML2 "sorml2_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORML2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5309 ':INT32) (N-REF5310 ':INT32)
                              (K-REF5311 ':INT32) (LDA-REF5313 ':INT32)
                              (LDC-REF5316 ':INT32)
                              (INFO-REF5318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5309 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5311 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5313 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5316 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5318 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5312 A)
                                            (TAU-REF5314 TAU)
                                            (C-REF5315 C)
                                            (WORK-REF5317 WORK))
      (%%SORML2 SIDE TRANS M-REF5309 N-REF5310 K-REF5311 A-REF5312
       LDA-REF5313 TAU-REF5314 C-REF5315 LDC-REF5316 WORK-REF5317
       INFO-REF5318))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQR0 "claqr0_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQR0
    (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF5319 ':INT32)
                              (WANTZ-REF5320 ':INT32)
                              (N-REF5321 ':INT32) (ILO-REF5322 ':INT32)
                              (IHI-REF5323 ':INT32)
                              (LDH-REF5325 ':INT32)
                              (ILOZ-REF5327 ':INT32)
                              (IHIZ-REF5328 ':INT32)
                              (LDZ-REF5330 ':INT32)
                              (LWORK-REF5332 ':INT32)
                              (INFO-REF5333 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF5319 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF5320 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5321 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5322 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5323 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF5325 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF5327 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF5328 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5330 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5332 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5333 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF5324 H)
                                            (W-REF5326 W)
                                            (Z-REF5329 Z)
                                            (WORK-REF5331 WORK))
      (%%CLAQR0 WANTT-REF5319 WANTZ-REF5320 N-REF5321 ILO-REF5322
       IHI-REF5323 H-REF5324 LDH-REF5325 W-REF5326 ILOZ-REF5327
       IHIZ-REF5328 Z-REF5329 LDZ-REF5330 WORK-REF5331 LWORK-REF5332
       INFO-REF5333))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED2 "slaed2_")
  ((K :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (INDXQ :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (DLAMDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (INDX :FOREIGN-ADDRESS) (INDXC :FOREIGN-ADDRESS)
   (INDXP :FOREIGN-ADDRESS) (COLTYP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED2
    (K N N1 D Q LDQ INDXQ RHO Z DLAMDA W Q2 INDX INDXC INDXP COLTYP
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    COLTYP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF5334 ':INT32) (N-REF5335 ':INT32)
                              (N1-REF5336 ':INT32)
                              (LDQ-REF5339 ':INT32)
                              (RHO-REF5341 ':FLOAT)
                              (INFO-REF5350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5334 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5335 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF5336 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5339 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF5341 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5350 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5337 D)
                                            (Q-REF5338 Q)
                                            (INDXQ-REF5340 INDXQ)
                                            (Z-REF5342 Z)
                                            (DLAMDA-REF5343 DLAMDA)
                                            (W-REF5344 W)
                                            (Q2-REF5345 Q2)
                                            (INDX-REF5346 INDX)
                                            (INDXC-REF5347 INDXC)
                                            (INDXP-REF5348 INDXP)
                                            (COLTYP-REF5349 COLTYP))
      (%%SLAED2 K-REF5334 N-REF5335 N1-REF5336 D-REF5337 Q-REF5338
       LDQ-REF5339 INDXQ-REF5340 RHO-REF5341 Z-REF5342 DLAMDA-REF5343
       W-REF5344 Q2-REF5345 INDX-REF5346 INDXC-REF5347 INDXP-REF5348
       COLTYP-REF5349 INFO-REF5350))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLATBS "zlatbs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLATBS
    (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATBS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5355 ':INT32) (KD-REF5356 ':INT32)
                              (LDAB-REF5358 ':INT32)
                              (SCALE-REF5360 ':DOUBLE)
                              (INFO-REF5362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5355 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF5356 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5358 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5360 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5357 AB)
                                            (X-REF5359 X)
                                            (CNORM-REF5361 CNORM))
      (%%ZLATBS UPLO TRANS DIAG NORMIN N-REF5355 KD-REF5356 AB-REF5357
       LDAB-REF5358 X-REF5359 SCALE-REF5360 CNORM-REF5361
       INFO-REF5362))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGETRF "dgetrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5363 ':INT32) (N-REF5364 ':INT32)
                              (LDA-REF5366 ':INT32)
                              (INFO-REF5368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5363 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5364 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5366 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5368 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5365 A)
                                            (IPIV-REF5367 IPIV))
      (%%DGETRF M-REF5363 N-REF5364 A-REF5365 LDA-REF5366 IPIV-REF5367
       INFO-REF5368))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRS2 "csytrs2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5370 ':INT32)
                              (NRHS-REF5371 ':INT32)
                              (LDA-REF5373 ':INT32)
                              (LDB-REF5376 ':INT32)
                              (INFO-REF5378 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5370 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5371 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5373 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5376 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5378 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5372 A)
                                            (IPIV-REF5374 IPIV)
                                            (B-REF5375 B)
                                            (WORK-REF5377 WORK))
      (%%CSYTRS2 UPLO N-REF5370 NRHS-REF5371 A-REF5372 LDA-REF5373
       IPIV-REF5374 B-REF5375 LDB-REF5376 WORK-REF5377 INFO-REF5378))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANTP "zlantp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5382 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5382 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5383 AP)
                                            (WORK-REF5384 WORK))
      (%%ZLANTP NORM UPLO DIAG N-REF5382 AP-REF5383 WORK-REF5384))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZLA_HERFSX_EXTENDED "zla_herfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_HERFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y LDY
     BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL
     RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF5385 ':INT32)
                              (N-REF5387 ':INT32)
                              (NRHS-REF5388 ':INT32)
                              (LDA-REF5390 ':INT32)
                              (LDAF-REF5392 ':INT32)
                              (COLEQU-REF5394 ':INT32)
                              (LDB-REF5397 ':INT32)
                              (LDY-REF5399 ':INT32)
                              (N_NORMS-REF5401 ':INT32)
                              (RCOND-REF5408 ':DOUBLE)
                              (ITHRESH-REF5409 ':INT32)
                              (RTHRESH-REF5410 ':DOUBLE)
                              (DZ_UB-REF5411 ':DOUBLE)
                              (IGNORE_CWISE-REF5412 ':INT32)
                              (INFO-REF5413 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF5385 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5387 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5388 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5390 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF5392 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF5394 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5397 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF5399 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF5401 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5408 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF5409 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF5410 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF5411 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF5412 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5413 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5389 A)
                                            (AF-REF5391 AF)
                                            (IPIV-REF5393 IPIV)
                                            (C-REF5395 C)
                                            (B-REF5396 B)
                                            (Y-REF5398 Y)
                                            (BERR_OUT-REF5400 BERR_OUT)
                                            (ERR_BNDS_NORM-REF5402
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF5403
                                             ERR_BNDS_COMP)
                                            (RES-REF5404 RES)
                                            (AYB-REF5405 AYB)
                                            (DY-REF5406 DY)
                                            (Y_TAIL-REF5407 Y_TAIL))
      (%%ZLA_HERFSX_EXTENDED PREC_TYPE-REF5385 UPLO N-REF5387
       NRHS-REF5388 A-REF5389 LDA-REF5390 AF-REF5391 LDAF-REF5392
       IPIV-REF5393 COLEQU-REF5394 C-REF5395 B-REF5396 LDB-REF5397
       Y-REF5398 LDY-REF5399 BERR_OUT-REF5400 N_NORMS-REF5401
       ERR_BNDS_NORM-REF5402 ERR_BNDS_COMP-REF5403 RES-REF5404
       AYB-REF5405 DY-REF5406 Y_TAIL-REF5407 RCOND-REF5408
       ITHRESH-REF5409 RTHRESH-REF5410 DZ_UB-REF5411
       IGNORE_CWISE-REF5412 INFO-REF5413))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGLSE "dgglse_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGLSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5414 ':INT32) (N-REF5415 ':INT32)
                              (P-REF5416 ':INT32) (LDA-REF5418 ':INT32)
                              (LDB-REF5420 ':INT32)
                              (LWORK-REF5425 ':INT32)
                              (INFO-REF5426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5414 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5415 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5416 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5418 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5420 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5425 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5417 A)
                                            (B-REF5419 B)
                                            (C-REF5421 C)
                                            (D-REF5422 D)
                                            (X-REF5423 X)
                                            (WORK-REF5424 WORK))
      (%%DGGLSE M-REF5414 N-REF5415 P-REF5416 A-REF5417 LDA-REF5418
       B-REF5419 LDB-REF5420 C-REF5421 D-REF5422 X-REF5423 WORK-REF5424
       LWORK-REF5425 INFO-REF5426))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANHT "zlanht_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANHT (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5428 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5428 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5429 D)
                                            (E-REF5430 E))
      (%%ZLANHT NORM N-REF5428 D-REF5429 E-REF5430))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMR3 "dormr3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMR3
    (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMR3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5433 ':INT32) (N-REF5434 ':INT32)
                              (K-REF5435 ':INT32) (L-REF5436 ':INT32)
                              (LDA-REF5438 ':INT32)
                              (LDC-REF5441 ':INT32)
                              (INFO-REF5443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5433 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5434 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5435 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5436 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5438 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5441 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5443 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5437 A)
                                            (TAU-REF5439 TAU)
                                            (C-REF5440 C)
                                            (WORK-REF5442 WORK))
      (%%DORMR3 SIDE TRANS M-REF5433 N-REF5434 K-REF5435 L-REF5436
       A-REF5437 LDA-REF5438 TAU-REF5439 C-REF5440 LDC-REF5441
       WORK-REF5442 INFO-REF5443))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNGHR "zunghr_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGHR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5444 ':INT32) (ILO-REF5445 ':INT32)
                              (IHI-REF5446 ':INT32)
                              (LDA-REF5448 ':INT32)
                              (LWORK-REF5451 ':INT32)
                              (INFO-REF5452 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5444 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5445 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5446 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5448 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5451 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5452 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5447 A)
                                            (TAU-REF5449 TAU)
                                            (WORK-REF5450 WORK))
      (%%ZUNGHR N-REF5444 ILO-REF5445 IHI-REF5446 A-REF5447 LDA-REF5448
       TAU-REF5449 WORK-REF5450 LWORK-REF5451 INFO-REF5452))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANSF "dlansf_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANSF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5456 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5457 A)
                                            (WORK-REF5458 WORK))
      (%%DLANSF NORM TRANSR UPLO N-REF5456 A-REF5457 WORK-REF5458))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELQT3 "zgelqt3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQT3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5459 ':INT32) (N-REF5460 ':INT32)
                              (LDA-REF5462 ':INT32)
                              (LDT-REF5464 ':INT32)
                              (INFO-REF5465 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5459 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5460 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5462 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5464 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5465 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5461 A)
                                            (T-REF5463 T))
      (%%ZGELQT3 M-REF5459 N-REF5460 A-REF5461 LDA-REF5462 T-REF5463
       LDT-REF5464 INFO-REF5465))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHFRK "chfrk_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHFRK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5469 ':INT32) (K-REF5470 ':INT32)
                              (ALPHA-REF5471 ':FLOAT)
                              (LDA-REF5473 ':INT32)
                              (BETA-REF5474 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5469 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5470 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF5471 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5473 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF5474 :FLOAT) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5472 A)
                                            (C-REF5475 C))
      (%%CHFRK TRANSR UPLO TRANS N-REF5469 K-REF5470 ALPHA-REF5471
       A-REF5472 LDA-REF5473 BETA-REF5474 C-REF5475))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBEVD_2STAGE "dsbevd_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBEVD_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5478 ':INT32) (KD-REF5479 ':INT32)
                              (LDAB-REF5481 ':INT32)
                              (LDZ-REF5484 ':INT32)
                              (LWORK-REF5486 ':INT32)
                              (LIWORK-REF5488 ':INT32)
                              (INFO-REF5489 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF5479 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5481 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5484 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5486 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF5488 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5489 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5480 AB)
                                            (W-REF5482 W)
                                            (Z-REF5483 Z)
                                            (WORK-REF5485 WORK)
                                            (IWORK-REF5487 IWORK))
      (%%DSBEVD_2STAGE JOBZ UPLO N-REF5478 KD-REF5479 AB-REF5480
       LDAB-REF5481 W-REF5482 Z-REF5483 LDZ-REF5484 WORK-REF5485
       LWORK-REF5486 IWORK-REF5487 LIWORK-REF5488 INFO-REF5489))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNG2R "cung2r_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNG2R)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5490 ':INT32) (N-REF5491 ':INT32)
                              (K-REF5492 ':INT32) (LDA-REF5494 ':INT32)
                              (INFO-REF5497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5490 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5491 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5492 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5497 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5493 A)
                                            (TAU-REF5495 TAU)
                                            (WORK-REF5496 WORK))
      (%%CUNG2R M-REF5490 N-REF5491 K-REF5492 A-REF5493 LDA-REF5494
       TAU-REF5495 WORK-REF5496 INFO-REF5497))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARZT "clarzt_")
  ((DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5500 ':INT32) (K-REF5501 ':INT32)
                              (LDV-REF5503 ':INT32)
                              (LDT-REF5506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5501 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5503 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5506 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5502 V)
                                            (TAU-REF5504 TAU)
                                            (T-REF5505 T))
      (%%CLARZT DIRECT STOREV N-REF5500 K-REF5501 V-REF5502 LDV-REF5503
       TAU-REF5504 T-REF5505 LDT-REF5506))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTGEX2 "ctgex2_")
  ((WANTQ :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (J1 :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTGEX2
    (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEX2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF5507 ':INT32)
                              (WANTZ-REF5508 ':INT32)
                              (N-REF5509 ':INT32) (LDA-REF5511 ':INT32)
                              (LDB-REF5513 ':INT32)
                              (LDQ-REF5515 ':INT32)
                              (LDZ-REF5517 ':INT32)
                              (J1-REF5518 ':INT32)
                              (INFO-REF5519 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF5507 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF5508 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5511 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5513 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5515 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5517 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF5518 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5519 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5510 A)
                                            (B-REF5512 B)
                                            (Q-REF5514 Q)
                                            (Z-REF5516 Z))
      (%%CTGEX2 WANTQ-REF5507 WANTZ-REF5508 N-REF5509 A-REF5510
       LDA-REF5511 B-REF5512 LDB-REF5513 Q-REF5514 LDQ-REF5515
       Z-REF5516 LDZ-REF5517 J1-REF5518 INFO-REF5519))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLATPS "slatps_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLATPS
    (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATPS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5524 ':INT32)
                              (SCALE-REF5527 ':FLOAT)
                              (INFO-REF5529 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5524 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5527 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5529 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5525 AP)
                                            (X-REF5526 X)
                                            (CNORM-REF5528 CNORM))
      (%%SLATPS UPLO TRANS DIAG NORMIN N-REF5524 AP-REF5525 X-REF5526
       SCALE-REF5527 CNORM-REF5528 INFO-REF5529))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRI_3X "chetri_3x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_3X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5531 ':INT32) (LDA-REF5533 ':INT32)
                              (NB-REF5537 ':INT32)
                              (INFO-REF5538 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5531 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5533 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5537 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5538 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5532 A)
                                            (E-REF5534 E)
                                            (IPIV-REF5535 IPIV)
                                            (WORK-REF5536 WORK))
      (%%CHETRI_3X UPLO N-REF5531 A-REF5532 LDA-REF5533 E-REF5534
       IPIV-REF5535 WORK-REF5536 NB-REF5537 INFO-REF5538))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLACGV "zlacgv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLACGV (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5539 ':INT32)
                              (INCX-REF5541 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5539 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF5541 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF5540 X))
      (%%ZLACGV N-REF5539 X-REF5540 INCX-REF5541))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZBDSQR "zbdsqr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NCVT :FOREIGN-ADDRESS) (NRU :FOREIGN-ADDRESS)
   (NCC :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZBDSQR
    (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZBDSQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5543 ':INT32)
                              (NCVT-REF5544 ':INT32)
                              (NRU-REF5545 ':INT32)
                              (NCC-REF5546 ':INT32)
                              (LDVT-REF5550 ':INT32)
                              (LDU-REF5552 ':INT32)
                              (LDC-REF5554 ':INT32)
                              (INFO-REF5556 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5543 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF5544 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF5545 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5546 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5550 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5552 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5554 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5556 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5547 D)
                                            (E-REF5548 E)
                                            (VT-REF5549 VT)
                                            (U-REF5551 U)
                                            (C-REF5553 C)
                                            (RWORK-REF5555 RWORK))
      (%%ZBDSQR UPLO N-REF5543 NCVT-REF5544 NRU-REF5545 NCC-REF5546
       D-REF5547 E-REF5548 VT-REF5549 LDVT-REF5550 U-REF5551
       LDU-REF5552 C-REF5553 LDC-REF5554 RWORK-REF5555 INFO-REF5556))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARFX "clarfx_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5558 ':INT32) (N-REF5559 ':INT32)
                              (TAU-REF5561
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF5563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5558 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5559 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF5561
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5563 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5560 V)
                                            (C-REF5562 C)
                                            (WORK-REF5564 WORK))
      (%%CLARFX SIDE M-REF5558 N-REF5559 V-REF5560 TAU-REF5561
       C-REF5562 LDC-REF5563 WORK-REF5564))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMRZ "sormrz_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMRZ
    (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMRZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5567 ':INT32) (N-REF5568 ':INT32)
                              (K-REF5569 ':INT32) (L-REF5570 ':INT32)
                              (LDA-REF5572 ':INT32)
                              (LDC-REF5575 ':INT32)
                              (LWORK-REF5577 ':INT32)
                              (INFO-REF5578 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5567 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5568 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5569 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5570 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5575 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5577 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5578 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5571 A)
                                            (TAU-REF5573 TAU)
                                            (C-REF5574 C)
                                            (WORK-REF5576 WORK))
      (%%SORMRZ SIDE TRANS M-REF5567 N-REF5568 K-REF5569 L-REF5570
       A-REF5571 LDA-REF5572 TAU-REF5573 C-REF5574 LDC-REF5575
       WORK-REF5576 LWORK-REF5577 INFO-REF5578))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%DSYTRF_AA_2STAGE "dsytrf_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TB :FOREIGN-ADDRESS)
   (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRF_AA_2STAGE
    (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5580 ':INT32) (LDA-REF5582 ':INT32)
                              (LTB-REF5584 ':INT32)
                              (LWORK-REF5588 ':INT32)
                              (INFO-REF5589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5580 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5582 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF5584 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5588 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5589 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5581 A)
                                            (TB-REF5583 TB)
                                            (IPIV-REF5585 IPIV)
                                            (IPIV2-REF5586 IPIV2)
                                            (WORK-REF5587 WORK))
      (%%DSYTRF_AA_2STAGE UPLO N-REF5580 A-REF5581 LDA-REF5582
       TB-REF5583 LTB-REF5584 IPIV-REF5585 IPIV2-REF5586 WORK-REF5587
       LWORK-REF5588 INFO-REF5589))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPCON "zhpcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5591 ':INT32)
                              (ANORM-REF5594 ':DOUBLE)
                              (RCOND-REF5595 ':DOUBLE)
                              (INFO-REF5597 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5591 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5594 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5595 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5597 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5592 AP)
                                            (IPIV-REF5593 IPIV)
                                            (WORK-REF5596 WORK))
      (%%ZHPCON UPLO N-REF5591 AP-REF5592 IPIV-REF5593 ANORM-REF5594
       RCOND-REF5595 WORK-REF5596 INFO-REF5597))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGERFS "sgerfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGERFS
    (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5599 ':INT32)
                              (NRHS-REF5600 ':INT32)
                              (LDA-REF5602 ':INT32)
                              (LDAF-REF5604 ':INT32)
                              (LDB-REF5607 ':INT32)
                              (LDX-REF5609 ':INT32)
                              (INFO-REF5614 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5599 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5600 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5602 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF5604 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5607 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5609 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5614 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5601 A)
                                            (AF-REF5603 AF)
                                            (IPIV-REF5605 IPIV)
                                            (B-REF5606 B)
                                            (X-REF5608 X)
                                            (FERR-REF5610 FERR)
                                            (BERR-REF5611 BERR)
                                            (WORK-REF5612 WORK)
                                            (IWORK-REF5613 IWORK))
      (%%SGERFS TRANS N-REF5599 NRHS-REF5600 A-REF5601 LDA-REF5602
       AF-REF5603 LDAF-REF5604 IPIV-REF5605 B-REF5606 LDB-REF5607
       X-REF5608 LDX-REF5609 FERR-REF5610 BERR-REF5611 WORK-REF5612
       IWORK-REF5613 INFO-REF5614))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARTGP "dlartgp_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (CS :FOREIGN-ADDRESS)
   (SN :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARTGP (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF5615 ':DOUBLE) (G-REF5616 ':DOUBLE)
                              (CS-REF5617 ':DOUBLE)
                              (SN-REF5618 ':DOUBLE)
                              (R-REF5619 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF5615 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF5616 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF5617 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF5618 :DOUBLE) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF5619 :DOUBLE) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTGP F-REF5615 G-REF5616 CS-REF5617 SN-REF5618 R-REF5619))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEQR "ssteqr_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5621 ':INT32) (LDZ-REF5625 ':INT32)
                              (INFO-REF5627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5625 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5622 D)
                                            (E-REF5623 E)
                                            (Z-REF5624 Z)
                                            (WORK-REF5626 WORK))
      (%%SSTEQR COMPZ N-REF5621 D-REF5622 E-REF5623 Z-REF5624
       LDZ-REF5625 WORK-REF5626 INFO-REF5627))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGELSY "dgelsy_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RANK :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGELSY
    (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5628 ':INT32) (N-REF5629 ':INT32)
                              (NRHS-REF5630 ':INT32)
                              (LDA-REF5632 ':INT32)
                              (LDB-REF5634 ':INT32)
                              (RCOND-REF5636 ':DOUBLE)
                              (RANK-REF5637 ':INT32)
                              (LWORK-REF5639 ':INT32)
                              (INFO-REF5640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5628 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5629 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5630 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5632 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5634 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5636 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF5637 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5639 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5640 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5631 A)
                                            (B-REF5633 B)
                                            (JPVT-REF5635 JPVT)
                                            (WORK-REF5638 WORK))
      (%%DGELSY M-REF5628 N-REF5629 NRHS-REF5630 A-REF5631 LDA-REF5632
       B-REF5633 LDB-REF5634 JPVT-REF5635 RCOND-REF5636 RANK-REF5637
       WORK-REF5638 LWORK-REF5639 INFO-REF5640))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRI_3X "zsytri_3x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_3X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5642 ':INT32) (LDA-REF5644 ':INT32)
                              (NB-REF5648 ':INT32)
                              (INFO-REF5649 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5642 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5644 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5648 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5649 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5643 A)
                                            (E-REF5645 E)
                                            (IPIV-REF5646 IPIV)
                                            (WORK-REF5647 WORK))
      (%%ZSYTRI_3X UPLO N-REF5642 A-REF5643 LDA-REF5644 E-REF5645
       IPIV-REF5646 WORK-REF5647 NB-REF5648 INFO-REF5649))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGHRD "zgghrd_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGHRD
    (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGHRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5652 ':INT32) (ILO-REF5653 ':INT32)
                              (IHI-REF5654 ':INT32)
                              (LDA-REF5656 ':INT32)
                              (LDB-REF5658 ':INT32)
                              (LDQ-REF5660 ':INT32)
                              (LDZ-REF5662 ':INT32)
                              (INFO-REF5663 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5652 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5653 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5654 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5656 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5658 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5660 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5662 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5663 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5655 A)
                                            (B-REF5657 B)
                                            (Q-REF5659 Q)
                                            (Z-REF5661 Z))
      (%%ZGGHRD COMPQ COMPZ N-REF5652 ILO-REF5653 IHI-REF5654 A-REF5655
       LDA-REF5656 B-REF5657 LDB-REF5658 Q-REF5659 LDQ-REF5660
       Z-REF5661 LDZ-REF5662 INFO-REF5663))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRF "ssytrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5665 ':INT32) (LDA-REF5667 ':INT32)
                              (LWORK-REF5670 ':INT32)
                              (INFO-REF5671 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5665 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5667 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5670 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5671 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5666 A)
                                            (IPIV-REF5668 IPIV)
                                            (WORK-REF5669 WORK))
      (%%SSYTRF UPLO N-REF5665 A-REF5666 LDA-REF5667 IPIV-REF5668
       WORK-REF5669 LWORK-REF5670 INFO-REF5671))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQP2 "zlaqp2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (OFFSET :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (VN1 :FOREIGN-ADDRESS) (VN2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQP2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5672 ':INT32) (N-REF5673 ':INT32)
                              (OFFSET-REF5674 ':INT32)
                              (LDA-REF5676 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5672 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5673 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF5674 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5676 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5675 A)
                                            (JPVT-REF5677 JPVT)
                                            (TAU-REF5678 TAU)
                                            (VN1-REF5679 VN1)
                                            (VN2-REF5680 VN2)
                                            (WORK-REF5681 WORK))
      (%%ZLAQP2 M-REF5672 N-REF5673 OFFSET-REF5674 A-REF5675
       LDA-REF5676 JPVT-REF5677 TAU-REF5678 VN1-REF5679 VN2-REF5680
       WORK-REF5681))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNBDB1 "cunbdb1_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNBDB1
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5682 ':INT32) (P-REF5683 ':INT32)
                              (Q-REF5684 ':INT32)
                              (LDX11-REF5686 ':INT32)
                              (LDX21-REF5688 ':INT32)
                              (LWORK-REF5695 ':INT32)
                              (INFO-REF5696 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5682 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5683 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5684 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5686 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5688 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5695 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5696 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5685 X11)
                                            (X21-REF5687 X21)
                                            (THETA-REF5689 THETA)
                                            (PHI-REF5690 PHI)
                                            (TAUP1-REF5691 TAUP1)
                                            (TAUP2-REF5692 TAUP2)
                                            (TAUQ1-REF5693 TAUQ1)
                                            (WORK-REF5694 WORK))
      (%%CUNBDB1 M-REF5682 P-REF5683 Q-REF5684 X11-REF5685
       LDX11-REF5686 X21-REF5687 LDX21-REF5688 THETA-REF5689
       PHI-REF5690 TAUP1-REF5691 TAUP2-REF5692 TAUQ1-REF5693
       WORK-REF5694 LWORK-REF5695 INFO-REF5696))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGTSVX "sgtsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DLF :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (DUF :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGTSVX
    (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX RCOND
     FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DLF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DUF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5699 ':INT32)
                              (NRHS-REF5700 ':INT32)
                              (LDB-REF5710 ':INT32)
                              (LDX-REF5712 ':INT32)
                              (RCOND-REF5713 ':FLOAT)
                              (INFO-REF5718 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5699 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5700 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5710 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5712 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5713 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5718 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF5701 DL)
                                            (D-REF5702 D)
                                            (DU-REF5703 DU)
                                            (DLF-REF5704 DLF)
                                            (DF-REF5705 DF)
                                            (DUF-REF5706 DUF)
                                            (DU2-REF5707 DU2)
                                            (IPIV-REF5708 IPIV)
                                            (B-REF5709 B)
                                            (X-REF5711 X)
                                            (FERR-REF5714 FERR)
                                            (BERR-REF5715 BERR)
                                            (WORK-REF5716 WORK)
                                            (IWORK-REF5717 IWORK))
      (%%SGTSVX FACT TRANS N-REF5699 NRHS-REF5700 DL-REF5701 D-REF5702
       DU-REF5703 DLF-REF5704 DF-REF5705 DUF-REF5706 DU2-REF5707
       IPIV-REF5708 B-REF5709 LDB-REF5710 X-REF5711 LDX-REF5712
       RCOND-REF5713 FERR-REF5714 BERR-REF5715 WORK-REF5716
       IWORK-REF5717 INFO-REF5718))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAR2V "slar2v_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAR2V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5719 ':INT32)
                              (INCX-REF5723 ':INT32)
                              (INCC-REF5726 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5719 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF5723 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF5726 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF5720 X)
                                            (Y-REF5721 Y)
                                            (Z-REF5722 Z)
                                            (C-REF5724 C)
                                            (S-REF5725 S))
      (%%SLAR2V N-REF5719 X-REF5720 Y-REF5721 Z-REF5722 INCX-REF5723
       C-REF5724 S-REF5725 INCC-REF5726))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEVD "dstevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEVD
    (JOBZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5728 ':INT32) (LDZ-REF5732 ':INT32)
                              (LWORK-REF5734 ':INT32)
                              (LIWORK-REF5736 ':INT32)
                              (INFO-REF5737 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5728 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5732 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5734 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF5736 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5737 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5729 D)
                                            (E-REF5730 E)
                                            (Z-REF5731 Z)
                                            (WORK-REF5733 WORK)
                                            (IWORK-REF5735 IWORK))
      (%%DSTEVD JOBZ N-REF5728 D-REF5729 E-REF5730 Z-REF5731
       LDZ-REF5732 WORK-REF5733 LWORK-REF5734 IWORK-REF5735
       LIWORK-REF5736 INFO-REF5737))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_HERPVGRW "zla_herpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_HERPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5739 ':INT32)
                              (INFO-REF5740 ':INT32)
                              (LDA-REF5742 ':INT32)
                              (LDAF-REF5744 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5740 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5742 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF5744 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5741 A)
                                            (AF-REF5743 AF)
                                            (IPIV-REF5745 IPIV)
                                            (WORK-REF5746 WORK))
      (%%ZLA_HERPVGRW UPLO N-REF5739 INFO-REF5740 A-REF5741 LDA-REF5742
       AF-REF5743 LDAF-REF5744 IPIV-REF5745 WORK-REF5746))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARFT "clarft_")
  ((DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5749 ':INT32) (K-REF5750 ':INT32)
                              (LDV-REF5752 ':INT32)
                              (LDT-REF5755 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5749 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5750 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5752 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5755 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5751 V)
                                            (TAU-REF5753 TAU)
                                            (T-REF5754 T))
      (%%CLARFT DIRECT STOREV N-REF5749 K-REF5750 V-REF5751 LDV-REF5752
       TAU-REF5753 T-REF5754 LDT-REF5755))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGETSLS "zgetsls_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGETSLS
    (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETSLS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5757 ':INT32) (N-REF5758 ':INT32)
                              (NRHS-REF5759 ':INT32)
                              (LDA-REF5761 ':INT32)
                              (LDB-REF5763 ':INT32)
                              (LWORK-REF5765 ':INT32)
                              (INFO-REF5766 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5757 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5758 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5759 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5761 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5763 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5765 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5766 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5760 A)
                                            (B-REF5762 B)
                                            (WORK-REF5764 WORK))
      (%%ZGETSLS TRANS M-REF5757 N-REF5758 NRHS-REF5759 A-REF5760
       LDA-REF5761 B-REF5762 LDB-REF5763 WORK-REF5764 LWORK-REF5765
       INFO-REF5766))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPTRS "zhptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5768 ':INT32)
                              (NRHS-REF5769 ':INT32)
                              (LDB-REF5773 ':INT32)
                              (INFO-REF5774 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5769 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5773 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5774 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5770 AP)
                                            (IPIV-REF5771 IPIV)
                                            (B-REF5772 B))
      (%%ZHPTRS UPLO N-REF5768 NRHS-REF5769 AP-REF5770 IPIV-REF5771
       B-REF5772 LDB-REF5773 INFO-REF5774))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLATRS "slatrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (CNORM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLATRS
    (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5779 ':INT32) (LDA-REF5781 ':INT32)
                              (SCALE-REF5783 ':FLOAT)
                              (INFO-REF5785 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5779 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5781 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5783 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5785 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5780 A)
                                            (X-REF5782 X)
                                            (CNORM-REF5784 CNORM))
      (%%SLATRS UPLO TRANS DIAG NORMIN N-REF5779 A-REF5780 LDA-REF5781
       X-REF5782 SCALE-REF5783 CNORM-REF5784 INFO-REF5785))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRI_ROOK "dsytri_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5787 ':INT32) (LDA-REF5789 ':INT32)
                              (INFO-REF5792 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5787 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5789 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5792 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5788 A)
                                            (IPIV-REF5790 IPIV)
                                            (WORK-REF5791 WORK))
      (%%DSYTRI_ROOK UPLO N-REF5787 A-REF5788 LDA-REF5789 IPIV-REF5790
       WORK-REF5791 INFO-REF5792))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRF "dlarrf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (LD :FOREIGN-ADDRESS) (CLSTRT :FOREIGN-ADDRESS)
   (CLEND :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WGAP :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (SPDIAM :FOREIGN-ADDRESS) (CLGAPL :FOREIGN-ADDRESS)
   (CLGAPR :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (DPLUS :FOREIGN-ADDRESS)
   (LPLUS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRF
    (N D L LD CLSTRT CLEND W WGAP WERR SPDIAM CLGAPL CLGAPR PIVMIN
     SIGMA DPLUS LPLUS WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLSTRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLEND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WERR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DPLUS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LPLUS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5793 ':INT32)
                              (CLSTRT-REF5797 ':INT32)
                              (CLEND-REF5798 ':INT32)
                              (SPDIAM-REF5802 ':DOUBLE)
                              (CLGAPL-REF5803 ':DOUBLE)
                              (CLGAPR-REF5804 ':DOUBLE)
                              (PIVMIN-REF5805 ':DOUBLE)
                              (SIGMA-REF5806 ':DOUBLE)
                              (INFO-REF5810 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5793 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF5797 :INT32) CLSTRT)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF5798 :INT32) CLEND)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF5802 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF5803 :DOUBLE) CLGAPL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF5804 :DOUBLE) CLGAPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF5805 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF5806 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5810 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5794 D)
                                            (L-REF5795 L)
                                            (LD-REF5796 LD)
                                            (W-REF5799 W)
                                            (WGAP-REF5800 WGAP)
                                            (WERR-REF5801 WERR)
                                            (DPLUS-REF5807 DPLUS)
                                            (LPLUS-REF5808 LPLUS)
                                            (WORK-REF5809 WORK))
      (%%DLARRF N-REF5793 D-REF5794 L-REF5795 LD-REF5796 CLSTRT-REF5797
       CLEND-REF5798 W-REF5799 WGAP-REF5800 WERR-REF5801 SPDIAM-REF5802
       CLGAPL-REF5803 CLGAPR-REF5804 PIVMIN-REF5805 SIGMA-REF5806
       DPLUS-REF5807 LPLUS-REF5808 WORK-REF5809 INFO-REF5810))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEEVR "zheevr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEEVR
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
     LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5814 ':INT32) (LDA-REF5816 ':INT32)
                              (VL-REF5817 ':DOUBLE)
                              (VU-REF5818 ':DOUBLE)
                              (IL-REF5819 ':INT32) (IU-REF5820 ':INT32)
                              (ABSTOL-REF5821 ':DOUBLE)
                              (M-REF5822 ':INT32) (LDZ-REF5825 ':INT32)
                              (LWORK-REF5828 ':INT32)
                              (LRWORK-REF5830 ':INT32)
                              (LIWORK-REF5832 ':INT32)
                              (INFO-REF5833 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5814 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5816 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5817 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5818 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF5819 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF5820 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF5821 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5822 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5825 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5828 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5830 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF5832 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5833 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5815 A)
                                            (W-REF5823 W)
                                            (Z-REF5824 Z)
                                            (ISUPPZ-REF5826 ISUPPZ)
                                            (WORK-REF5827 WORK)
                                            (RWORK-REF5829 RWORK)
                                            (IWORK-REF5831 IWORK))
      (%%ZHEEVR JOBZ RANGE UPLO N-REF5814 A-REF5815 LDA-REF5816
       VL-REF5817 VU-REF5818 IL-REF5819 IU-REF5820 ABSTOL-REF5821
       M-REF5822 W-REF5823 Z-REF5824 LDZ-REF5825 ISUPPZ-REF5826
       WORK-REF5827 LWORK-REF5828 RWORK-REF5829 LRWORK-REF5830
       IWORK-REF5831 LIWORK-REF5832 INFO-REF5833))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLACP2 "zlacp2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLACP2 (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACP2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5835 ':INT32) (N-REF5836 ':INT32)
                              (LDA-REF5838 ':INT32)
                              (LDB-REF5840 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5835 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5836 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5838 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5840 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5837 A)
                                            (B-REF5839 B))
      (%%ZLACP2 UPLO M-REF5835 N-REF5836 A-REF5837 LDA-REF5838
       B-REF5839 LDB-REF5840))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANTB "dlantb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5844 ':INT32) (K-REF5845 ':INT32)
                              (LDAB-REF5847 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5844 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5845 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5847 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5846 AB)
                                            (WORK-REF5848 WORK))
      (%%DLANTB NORM UPLO DIAG N-REF5844 K-REF5845 AB-REF5846
       LDAB-REF5847 WORK-REF5848))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_HEAMV "cla_heamv_")
  ((UPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_HEAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HEAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF5849 ':INT32)
                              (N-REF5850 ':INT32)
                              (ALPHA-REF5851 ':FLOAT)
                              (LDA-REF5853 ':INT32)
                              (INCX-REF5855 ':INT32)
                              (BETA-REF5856 ':FLOAT)
                              (INCY-REF5858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF5849 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5850 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF5851 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5853 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF5855 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF5856 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF5858 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5852 A)
                                            (X-REF5854 X)
                                            (Y-REF5857 Y))
      (%%CLA_HEAMV UPLO-REF5849 N-REF5850 ALPHA-REF5851 A-REF5852
       LDA-REF5853 X-REF5854 INCX-REF5855 BETA-REF5856 Y-REF5857
       INCY-REF5858))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAMTSQR "slamtsqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAMTSQR
    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMTSQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5861 ':INT32) (N-REF5862 ':INT32)
                              (K-REF5863 ':INT32) (MB-REF5864 ':INT32)
                              (NB-REF5865 ':INT32)
                              (LDA-REF5867 ':INT32)
                              (LDT-REF5869 ':INT32)
                              (LDC-REF5871 ':INT32)
                              (LWORK-REF5873 ':INT32)
                              (INFO-REF5874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5861 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5862 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5863 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5864 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5865 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5867 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5869 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5871 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5873 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5874 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5866 A)
                                            (T-REF5868 T)
                                            (C-REF5870 C)
                                            (WORK-REF5872 WORK))
      (%%SLAMTSQR SIDE TRANS M-REF5861 N-REF5862 K-REF5863 MB-REF5864
       NB-REF5865 A-REF5866 LDA-REF5867 T-REF5868 LDT-REF5869 C-REF5870
       LDC-REF5871 WORK-REF5872 LWORK-REF5873 INFO-REF5874))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPRFS "ctprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPRFS
    (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5878 ':INT32)
                              (NRHS-REF5879 ':INT32)
                              (LDB-REF5882 ':INT32)
                              (LDX-REF5884 ':INT32)
                              (INFO-REF5889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5879 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5882 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5884 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5889 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5880 AP)
                                            (B-REF5881 B)
                                            (X-REF5883 X)
                                            (FERR-REF5885 FERR)
                                            (BERR-REF5886 BERR)
                                            (WORK-REF5887 WORK)
                                            (RWORK-REF5888 RWORK))
      (%%CTPRFS UPLO TRANS DIAG N-REF5878 NRHS-REF5879 AP-REF5880
       B-REF5881 LDB-REF5882 X-REF5883 LDX-REF5884 FERR-REF5885
       BERR-REF5886 WORK-REF5887 RWORK-REF5888 INFO-REF5889))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBSVXX "dgbsvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RPVGRW :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBSVXX
    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B LDB X
     LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
     NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5892 ':INT32) (KL-REF5893 ':INT32)
                              (KU-REF5894 ':INT32)
                              (NRHS-REF5895 ':INT32)
                              (LDAB-REF5897 ':INT32)
                              (LDAFB-REF5899 ':INT32)
                              (LDB-REF5905 ':INT32)
                              (LDX-REF5907 ':INT32)
                              (RCOND-REF5908 ':DOUBLE)
                              (RPVGRW-REF5909 ':DOUBLE)
                              (N_ERR_BNDS-REF5911 ':INT32)
                              (NPARAMS-REF5914 ':INT32)
                              (INFO-REF5918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5892 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5893 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5894 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5895 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5897 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5899 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5905 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5907 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5908 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF5909 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5911 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5914 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5896 AB)
                                            (AFB-REF5898 AFB)
                                            (IPIV-REF5900 IPIV)
                                            (R-REF5902 R)
                                            (C-REF5903 C)
                                            (B-REF5904 B)
                                            (X-REF5906 X)
                                            (BERR-REF5910 BERR)
                                            (ERR_BNDS_NORM-REF5912
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF5913
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF5915 PARAMS)
                                            (WORK-REF5916 WORK)
                                            (IWORK-REF5917 IWORK))
      (%%DGBSVXX FACT TRANS N-REF5892 KL-REF5893 KU-REF5894
       NRHS-REF5895 AB-REF5896 LDAB-REF5897 AFB-REF5898 LDAFB-REF5899
       IPIV-REF5900 EQUED R-REF5902 C-REF5903 B-REF5904 LDB-REF5905
       X-REF5906 LDX-REF5907 RCOND-REF5908 RPVGRW-REF5909 BERR-REF5910
       N_ERR_BNDS-REF5911 ERR_BNDS_NORM-REF5912 ERR_BNDS_COMP-REF5913
       NPARAMS-REF5914 PARAMS-REF5915 WORK-REF5916 IWORK-REF5917
       INFO-REF5918))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPTRI "ztptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5921 ':INT32)
                              (INFO-REF5923 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5921 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5923 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5922 AP))
      (%%ZTPTRI UPLO DIAG N-REF5921 AP-REF5922 INFO-REF5923))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTGSNA "dtgsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTGSNA
    (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5927 ':INT32) (LDA-REF5929 ':INT32)
                              (LDB-REF5931 ':INT32)
                              (LDVL-REF5933 ':INT32)
                              (LDVR-REF5935 ':INT32)
                              (MM-REF5938 ':INT32) (M-REF5939 ':INT32)
                              (LWORK-REF5941 ':INT32)
                              (INFO-REF5943 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5927 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5929 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5931 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5933 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5935 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5938 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5939 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5941 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5943 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5926 SELECT)
                                            (A-REF5928 A)
                                            (B-REF5930 B)
                                            (VL-REF5932 VL)
                                            (VR-REF5934 VR)
                                            (S-REF5936 S)
                                            (DIF-REF5937 DIF)
                                            (WORK-REF5940 WORK)
                                            (IWORK-REF5942 IWORK))
      (%%DTGSNA JOB HOWMNY SELECT-REF5926 N-REF5927 A-REF5928
       LDA-REF5929 B-REF5930 LDB-REF5931 VL-REF5932 LDVL-REF5933
       VR-REF5934 LDVR-REF5935 S-REF5936 DIF-REF5937 MM-REF5938
       M-REF5939 WORK-REF5940 LWORK-REF5941 IWORK-REF5942
       INFO-REF5943))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPEV "dspev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPEV (JOBZ UPLO N AP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5946 ':INT32) (LDZ-REF5950 ':INT32)
                              (INFO-REF5952 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5946 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5950 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5952 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5947 AP)
                                            (W-REF5948 W)
                                            (Z-REF5949 Z)
                                            (WORK-REF5951 WORK))
      (%%DSPEV JOBZ UPLO N-REF5946 AP-REF5947 W-REF5948 Z-REF5949
       LDZ-REF5950 WORK-REF5951 INFO-REF5952))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEBRD "cgebrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5953 ':INT32) (N-REF5954 ':INT32)
                              (LDA-REF5956 ':INT32)
                              (LWORK-REF5962 ':INT32)
                              (INFO-REF5963 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5953 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5954 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5956 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5962 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5963 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5955 A)
                                            (D-REF5957 D)
                                            (E-REF5958 E)
                                            (TAUQ-REF5959 TAUQ)
                                            (TAUP-REF5960 TAUP)
                                            (WORK-REF5961 WORK))
      (%%CGEBRD M-REF5953 N-REF5954 A-REF5955 LDA-REF5956 D-REF5957
       E-REF5958 TAUQ-REF5959 TAUP-REF5960 WORK-REF5961 LWORK-REF5962
       INFO-REF5963))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOEQUB "zpoequb_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5964 ':INT32) (LDA-REF5966 ':INT32)
                              (SCOND-REF5968 ':DOUBLE)
                              (AMAX-REF5969 ':DOUBLE)
                              (INFO-REF5970 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5964 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5966 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF5968 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5969 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5970 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5965 A)
                                            (S-REF5967 S))
      (%%ZPOEQUB N-REF5964 A-REF5965 LDA-REF5966 S-REF5967
       SCOND-REF5968 AMAX-REF5969 INFO-REF5970))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARTGS "dlartgs_")
  ((X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (SIGMA :FOREIGN-ADDRESS)
   (CS :FOREIGN-ADDRESS) (SN :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARTGS (X Y SIGMA CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF5971 ':DOUBLE) (Y-REF5972 ':DOUBLE)
                              (SIGMA-REF5973 ':DOUBLE)
                              (CS-REF5974 ':DOUBLE)
                              (SN-REF5975 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF5971 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF5972 :DOUBLE) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF5973 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF5974 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF5975 :DOUBLE) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTGS X-REF5971 Y-REF5972 SIGMA-REF5973 CS-REF5974
       SN-REF5975))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZHETRS_AA_2STAGE "zhetrs_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TB :FOREIGN-ADDRESS) (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRS_AA_2STAGE
    (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5977 ':INT32)
                              (NRHS-REF5978 ':INT32)
                              (LDA-REF5980 ':INT32)
                              (LTB-REF5982 ':INT32)
                              (LDB-REF5986 ':INT32)
                              (INFO-REF5987 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5977 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5978 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5980 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF5982 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5986 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5987 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5979 A)
                                            (TB-REF5981 TB)
                                            (IPIV-REF5983 IPIV)
                                            (IPIV2-REF5984 IPIV2)
                                            (B-REF5985 B))
      (%%ZHETRS_AA_2STAGE UPLO N-REF5977 NRHS-REF5978 A-REF5979
       LDA-REF5980 TB-REF5981 LTB-REF5982 IPIV-REF5983 IPIV2-REF5984
       B-REF5985 LDB-REF5986 INFO-REF5987))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRCON "dtrcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRCON
    (NORM UPLO DIAG N A LDA RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5991 ':INT32) (LDA-REF5993 ':INT32)
                              (RCOND-REF5994 ':DOUBLE)
                              (INFO-REF5997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5991 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5993 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5994 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5992 A)
                                            (WORK-REF5995 WORK)
                                            (IWORK-REF5996 IWORK))
      (%%DTRCON NORM UPLO DIAG N-REF5991 A-REF5992 LDA-REF5993
       RCOND-REF5994 WORK-REF5995 IWORK-REF5996 INFO-REF5997))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMR3 "cunmr3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMR3
    (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMR3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6000 ':INT32) (N-REF6001 ':INT32)
                              (K-REF6002 ':INT32) (L-REF6003 ':INT32)
                              (LDA-REF6005 ':INT32)
                              (LDC-REF6008 ':INT32)
                              (INFO-REF6010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6000 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6001 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6002 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6003 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6005 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6008 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6010 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6004 A)
                                            (TAU-REF6006 TAU)
                                            (C-REF6007 C)
                                            (WORK-REF6009 WORK))
      (%%CUNMR3 SIDE TRANS M-REF6000 N-REF6001 K-REF6002 L-REF6003
       A-REF6004 LDA-REF6005 TAU-REF6006 C-REF6007 LDC-REF6008
       WORK-REF6009 INFO-REF6010))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBTRF "dgbtrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6011 ':INT32) (N-REF6012 ':INT32)
                              (KL-REF6013 ':INT32) (KU-REF6014 ':INT32)
                              (LDAB-REF6016 ':INT32)
                              (INFO-REF6018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6011 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6013 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6014 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6016 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6018 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6015 AB)
                                            (IPIV-REF6017 IPIV))
      (%%DGBTRF M-REF6011 N-REF6012 KL-REF6013 KU-REF6014 AB-REF6015
       LDAB-REF6016 IPIV-REF6017 INFO-REF6018))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_SYAMV "sla_syamv_")
  ((UPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF6019 ':INT32)
                              (N-REF6020 ':INT32)
                              (ALPHA-REF6021 ':FLOAT)
                              (LDA-REF6023 ':INT32)
                              (INCX-REF6025 ':INT32)
                              (BETA-REF6026 ':FLOAT)
                              (INCY-REF6028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF6019 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6020 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF6021 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6023 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF6025 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF6026 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF6028 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6022 A)
                                            (X-REF6024 X)
                                            (Y-REF6027 Y))
      (%%SLA_SYAMV UPLO-REF6019 N-REF6020 ALPHA-REF6021 A-REF6022
       LDA-REF6023 X-REF6024 INCX-REF6025 BETA-REF6026 Y-REF6027
       INCY-REF6028))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBTRF "spbtrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6030 ':INT32) (KD-REF6031 ':INT32)
                              (LDAB-REF6033 ':INT32)
                              (INFO-REF6034 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6030 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF6031 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6033 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6034 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6032 AB))
      (%%SPBTRF UPLO N-REF6030 KD-REF6031 AB-REF6032 LDAB-REF6033
       INFO-REF6034))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBEQU "cgbequ_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBEQU
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6035 ':INT32) (N-REF6036 ':INT32)
                              (KL-REF6037 ':INT32) (KU-REF6038 ':INT32)
                              (LDAB-REF6040 ':INT32)
                              (ROWCND-REF6043 ':FLOAT)
                              (COLCND-REF6044 ':FLOAT)
                              (AMAX-REF6045 ':FLOAT)
                              (INFO-REF6046 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6035 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6036 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6037 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6038 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6040 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6043 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6044 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6045 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6046 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6039 AB)
                                            (R-REF6041 R)
                                            (C-REF6042 C))
      (%%CGBEQU M-REF6035 N-REF6036 KL-REF6037 KU-REF6038 AB-REF6039
       LDAB-REF6040 R-REF6041 C-REF6042 ROWCND-REF6043 COLCND-REF6044
       AMAX-REF6045 INFO-REF6046))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHECON_3 "zhecon_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHECON_3
    (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6048 ':INT32) (LDA-REF6050 ':INT32)
                              (ANORM-REF6053 ':DOUBLE)
                              (RCOND-REF6054 ':DOUBLE)
                              (INFO-REF6056 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6048 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6050 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6053 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6054 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6056 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6049 A)
                                            (E-REF6051 E)
                                            (IPIV-REF6052 IPIV)
                                            (WORK-REF6055 WORK))
      (%%ZHECON_3 UPLO N-REF6048 A-REF6049 LDA-REF6050 E-REF6051
       IPIV-REF6052 ANORM-REF6053 RCOND-REF6054 WORK-REF6055
       INFO-REF6056))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELS "sgels_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6058 ':INT32) (N-REF6059 ':INT32)
                              (NRHS-REF6060 ':INT32)
                              (LDA-REF6062 ':INT32)
                              (LDB-REF6064 ':INT32)
                              (LWORK-REF6066 ':INT32)
                              (INFO-REF6067 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6058 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6059 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6060 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6062 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6064 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6066 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6067 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6061 A)
                                            (B-REF6063 B)
                                            (WORK-REF6065 WORK))
      (%%SGELS TRANS M-REF6058 N-REF6059 NRHS-REF6060 A-REF6061
       LDA-REF6062 B-REF6063 LDB-REF6064 WORK-REF6065 LWORK-REF6066
       INFO-REF6067))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEVX "dsyevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEVX
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK LWORK
     IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6071 ':INT32) (LDA-REF6073 ':INT32)
                              (VL-REF6074 ':DOUBLE)
                              (VU-REF6075 ':DOUBLE)
                              (IL-REF6076 ':INT32) (IU-REF6077 ':INT32)
                              (ABSTOL-REF6078 ':DOUBLE)
                              (M-REF6079 ':INT32) (LDZ-REF6082 ':INT32)
                              (LWORK-REF6084 ':INT32)
                              (INFO-REF6087 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6071 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6073 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6074 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6075 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6076 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6077 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF6078 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6079 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6082 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6084 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6087 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6072 A)
                                            (W-REF6080 W)
                                            (Z-REF6081 Z)
                                            (WORK-REF6083 WORK)
                                            (IWORK-REF6085 IWORK)
                                            (IFAIL-REF6086 IFAIL))
      (%%DSYEVX JOBZ RANGE UPLO N-REF6071 A-REF6072 LDA-REF6073
       VL-REF6074 VU-REF6075 IL-REF6076 IU-REF6077 ABSTOL-REF6078
       M-REF6079 W-REF6080 Z-REF6081 LDZ-REF6082 WORK-REF6083
       LWORK-REF6084 IWORK-REF6085 IFAIL-REF6086 INFO-REF6087))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRS2 "ssytrs2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6089 ':INT32)
                              (NRHS-REF6090 ':INT32)
                              (LDA-REF6092 ':INT32)
                              (LDB-REF6095 ':INT32)
                              (INFO-REF6097 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6089 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6090 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6092 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6095 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6097 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6091 A)
                                            (IPIV-REF6093 IPIV)
                                            (B-REF6094 B)
                                            (WORK-REF6096 WORK))
      (%%SSYTRS2 UPLO N-REF6089 NRHS-REF6090 A-REF6091 LDA-REF6092
       IPIV-REF6093 B-REF6094 LDB-REF6095 WORK-REF6096 INFO-REF6097))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DBDSDC "dbdsdc_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (LDVT :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (IQ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DBDSDC
    (UPLO COMPQ N D E U LDU VT LDVT Q IQ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSDC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6100 ':INT32) (LDU-REF6104 ':INT32)
                              (LDVT-REF6106 ':INT32)
                              (INFO-REF6111 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6104 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6106 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6111 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6101 D)
                                            (E-REF6102 E)
                                            (U-REF6103 U)
                                            (VT-REF6105 VT)
                                            (Q-REF6107 Q)
                                            (IQ-REF6108 IQ)
                                            (WORK-REF6109 WORK)
                                            (IWORK-REF6110 IWORK))
      (%%DBDSDC UPLO COMPQ N-REF6100 D-REF6101 E-REF6102 U-REF6103
       LDU-REF6104 VT-REF6105 LDVT-REF6106 Q-REF6107 IQ-REF6108
       WORK-REF6109 IWORK-REF6110 INFO-REF6111))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGHRD "sgghrd_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGHRD
    (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGHRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6114 ':INT32) (ILO-REF6115 ':INT32)
                              (IHI-REF6116 ':INT32)
                              (LDA-REF6118 ':INT32)
                              (LDB-REF6120 ':INT32)
                              (LDQ-REF6122 ':INT32)
                              (LDZ-REF6124 ':INT32)
                              (INFO-REF6125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6114 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6115 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6116 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6118 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6120 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6122 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6124 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6117 A)
                                            (B-REF6119 B)
                                            (Q-REF6121 Q)
                                            (Z-REF6123 Z))
      (%%SGGHRD COMPQ COMPZ N-REF6114 ILO-REF6115 IHI-REF6116 A-REF6117
       LDA-REF6118 B-REF6119 LDB-REF6120 Q-REF6121 LDQ-REF6122
       Z-REF6123 LDZ-REF6124 INFO-REF6125))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPGV "dspgv_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF6126 ':INT32)
                              (N-REF6129 ':INT32) (LDZ-REF6134 ':INT32)
                              (INFO-REF6136 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF6126 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6129 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6134 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6136 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF6130 AP)
                                            (BP-REF6131 BP)
                                            (W-REF6132 W)
                                            (Z-REF6133 Z)
                                            (WORK-REF6135 WORK))
      (%%DSPGV ITYPE-REF6126 JOBZ UPLO N-REF6129 AP-REF6130 BP-REF6131
       W-REF6132 Z-REF6133 LDZ-REF6134 WORK-REF6135 INFO-REF6136))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEMQRT "sgemqrt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEMQRT
    (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMQRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6139 ':INT32) (N-REF6140 ':INT32)
                              (K-REF6141 ':INT32) (NB-REF6142 ':INT32)
                              (LDV-REF6144 ':INT32)
                              (LDT-REF6146 ':INT32)
                              (LDC-REF6148 ':INT32)
                              (INFO-REF6150 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6139 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6141 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6142 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6144 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6146 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6148 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6150 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6143 V)
                                            (T-REF6145 T)
                                            (C-REF6147 C)
                                            (WORK-REF6149 WORK))
      (%%SGEMQRT SIDE TRANS M-REF6139 N-REF6140 K-REF6141 NB-REF6142
       V-REF6143 LDV-REF6144 T-REF6145 LDT-REF6146 C-REF6147
       LDC-REF6148 WORK-REF6149 INFO-REF6150))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYR "csyr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6152 ':INT32)
                              (ALPHA-REF6153
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF6155 ':INT32)
                              (LDA-REF6157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6152 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF6153
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF6155 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6157 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF6154 X)
                                            (A-REF6156 A))
      (%%CSYR UPLO N-REF6152 ALPHA-REF6153 X-REF6154 INCX-REF6155
       A-REF6156 LDA-REF6157))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STGEXC "stgexc_")
  ((WANTQ :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (IFST :FOREIGN-ADDRESS) (ILST :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STGEXC
    (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEXC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF6158 ':INT32)
                              (WANTZ-REF6159 ':INT32)
                              (N-REF6160 ':INT32) (LDA-REF6162 ':INT32)
                              (LDB-REF6164 ':INT32)
                              (LDQ-REF6166 ':INT32)
                              (LDZ-REF6168 ':INT32)
                              (IFST-REF6169 ':INT32)
                              (ILST-REF6170 ':INT32)
                              (LWORK-REF6172 ':INT32)
                              (INFO-REF6173 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF6158 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF6159 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6160 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6162 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6164 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6166 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6168 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF6169 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF6170 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6172 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6173 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6161 A)
                                            (B-REF6163 B)
                                            (Q-REF6165 Q)
                                            (Z-REF6167 Z)
                                            (WORK-REF6171 WORK))
      (%%STGEXC WANTQ-REF6158 WANTZ-REF6159 N-REF6160 A-REF6161
       LDA-REF6162 B-REF6163 LDB-REF6164 Q-REF6165 LDQ-REF6166
       Z-REF6167 LDZ-REF6168 IFST-REF6169 ILST-REF6170 WORK-REF6171
       LWORK-REF6172 INFO-REF6173))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOTRF2 "cpotrf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6175 ':INT32) (LDA-REF6177 ':INT32)
                              (INFO-REF6178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6177 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6176 A))
      (%%CPOTRF2 UPLO N-REF6175 A-REF6176 LDA-REF6177 INFO-REF6178))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESVDQ "sgesvdq_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NUMRANK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESVDQ
    (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK IWORK
     LIWORK WORK LWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVDQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6184 ':INT32) (N-REF6185 ':INT32)
                              (LDA-REF6187 ':INT32)
                              (LDU-REF6190 ':INT32)
                              (LDV-REF6192 ':INT32)
                              (NUMRANK-REF6193 ':INT32)
                              (LIWORK-REF6195 ':INT32)
                              (LWORK-REF6197 ':INT32)
                              (LRWORK-REF6199 ':INT32)
                              (INFO-REF6200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6184 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6185 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6187 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6190 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6192 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF6193 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6195 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6197 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF6199 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6186 A)
                                            (S-REF6188 S)
                                            (U-REF6189 U)
                                            (V-REF6191 V)
                                            (IWORK-REF6194 IWORK)
                                            (WORK-REF6196 WORK)
                                            (RWORK-REF6198 RWORK))
      (%%SGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF6184 N-REF6185 A-REF6186
       LDA-REF6187 S-REF6188 U-REF6189 LDU-REF6190 V-REF6191
       LDV-REF6192 NUMRANK-REF6193 IWORK-REF6194 LIWORK-REF6195
       WORK-REF6196 LWORK-REF6197 RWORK-REF6198 LRWORK-REF6199
       INFO-REF6200))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPTRD "dsptrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6202 ':INT32)
                              (INFO-REF6207 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6207 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF6203 AP)
                                            (D-REF6204 D)
                                            (E-REF6205 E)
                                            (TAU-REF6206 TAU))
      (%%DSPTRD UPLO N-REF6202 AP-REF6203 D-REF6204 E-REF6205
       TAU-REF6206 INFO-REF6207))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRF_ROOK "csytrf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6209 ':INT32) (LDA-REF6211 ':INT32)
                              (LWORK-REF6214 ':INT32)
                              (INFO-REF6215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6211 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6214 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6215 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6210 A)
                                            (IPIV-REF6212 IPIV)
                                            (WORK-REF6213 WORK))
      (%%CSYTRF_ROOK UPLO N-REF6209 A-REF6210 LDA-REF6211 IPIV-REF6212
       WORK-REF6213 LWORK-REF6214 INFO-REF6215))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAHEF_ROOK "zlahef_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAHEF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6217 ':INT32) (NB-REF6218 ':INT32)
                              (KB-REF6219 ':INT32)
                              (LDA-REF6221 ':INT32)
                              (LDW-REF6224 ':INT32)
                              (INFO-REF6225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6218 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF6219 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF6224 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6220 A)
                                            (IPIV-REF6222 IPIV)
                                            (W-REF6223 W))
      (%%ZLAHEF_ROOK UPLO N-REF6217 NB-REF6218 KB-REF6219 A-REF6220
       LDA-REF6221 IPIV-REF6222 W-REF6223 LDW-REF6224 INFO-REF6225))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGQRF "zggqrf_")
  ((N :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAUA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TAUB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGQRF
    (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGQRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6226 ':INT32) (M-REF6227 ':INT32)
                              (P-REF6228 ':INT32) (LDA-REF6230 ':INT32)
                              (LDB-REF6233 ':INT32)
                              (LWORK-REF6236 ':INT32)
                              (INFO-REF6237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6227 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6228 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6230 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6233 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6236 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6229 A)
                                            (TAUA-REF6231 TAUA)
                                            (B-REF6232 B)
                                            (TAUB-REF6234 TAUB)
                                            (WORK-REF6235 WORK))
      (%%ZGGQRF N-REF6226 M-REF6227 P-REF6228 A-REF6229 LDA-REF6230
       TAUA-REF6231 B-REF6232 LDB-REF6233 TAUB-REF6234 WORK-REF6235
       LWORK-REF6236 INFO-REF6237))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAT2S "dlat2s_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS)
   (LDSA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAT2S (UPLO N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAT2S)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6239 ':INT32) (LDA-REF6241 ':INT32)
                              (LDSA-REF6243 ':INT32)
                              (INFO-REF6244 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6241 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF6243 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6244 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6240 A)
                                            (SA-REF6242 SA))
      (%%DLAT2S UPLO N-REF6239 A-REF6240 LDA-REF6241 SA-REF6242
       LDSA-REF6243 INFO-REF6244))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESVXX "dgesvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RPVGRW :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESVXX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6247 ':INT32)
                              (NRHS-REF6248 ':INT32)
                              (LDA-REF6250 ':INT32)
                              (LDAF-REF6252 ':INT32)
                              (LDB-REF6258 ':INT32)
                              (LDX-REF6260 ':INT32)
                              (RCOND-REF6261 ':DOUBLE)
                              (RPVGRW-REF6262 ':DOUBLE)
                              (N_ERR_BNDS-REF6264 ':INT32)
                              (NPARAMS-REF6267 ':INT32)
                              (INFO-REF6271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6247 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6248 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6250 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6252 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6258 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6260 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6261 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6262 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6264 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6267 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6271 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6249 A)
                                            (AF-REF6251 AF)
                                            (IPIV-REF6253 IPIV)
                                            (R-REF6255 R)
                                            (C-REF6256 C)
                                            (B-REF6257 B)
                                            (X-REF6259 X)
                                            (BERR-REF6263 BERR)
                                            (ERR_BNDS_NORM-REF6265
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6266
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF6268 PARAMS)
                                            (WORK-REF6269 WORK)
                                            (IWORK-REF6270 IWORK))
      (%%DGESVXX FACT TRANS N-REF6247 NRHS-REF6248 A-REF6249
       LDA-REF6250 AF-REF6251 LDAF-REF6252 IPIV-REF6253 EQUED R-REF6255
       C-REF6256 B-REF6257 LDB-REF6258 X-REF6259 LDX-REF6260
       RCOND-REF6261 RPVGRW-REF6262 BERR-REF6263 N_ERR_BNDS-REF6264
       ERR_BNDS_NORM-REF6265 ERR_BNDS_COMP-REF6266 NPARAMS-REF6267
       PARAMS-REF6268 WORK-REF6269 IWORK-REF6270 INFO-REF6271))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRF_AA "zsytrf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6273 ':INT32) (LDA-REF6275 ':INT32)
                              (LWORK-REF6278 ':INT32)
                              (INFO-REF6279 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6273 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6275 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6278 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6279 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6274 A)
                                            (IPIV-REF6276 IPIV)
                                            (WORK-REF6277 WORK))
      (%%ZSYTRF_AA UPLO N-REF6273 A-REF6274 LDA-REF6275 IPIV-REF6276
       WORK-REF6277 LWORK-REF6278 INFO-REF6279))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CLA_HERFSX_EXTENDED "cla_herfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_HERFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y LDY
     BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL
     RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF6280 ':INT32)
                              (N-REF6282 ':INT32)
                              (NRHS-REF6283 ':INT32)
                              (LDA-REF6285 ':INT32)
                              (LDAF-REF6287 ':INT32)
                              (COLEQU-REF6289 ':INT32)
                              (LDB-REF6292 ':INT32)
                              (LDY-REF6294 ':INT32)
                              (N_NORMS-REF6296 ':INT32)
                              (RCOND-REF6303 ':FLOAT)
                              (ITHRESH-REF6304 ':INT32)
                              (RTHRESH-REF6305 ':FLOAT)
                              (DZ_UB-REF6306 ':FLOAT)
                              (IGNORE_CWISE-REF6307 ':INT32)
                              (INFO-REF6308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF6280 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6282 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6283 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6285 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6287 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF6289 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6292 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF6294 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF6296 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6303 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF6304 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF6305 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF6306 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF6307 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6284 A)
                                            (AF-REF6286 AF)
                                            (IPIV-REF6288 IPIV)
                                            (C-REF6290 C)
                                            (B-REF6291 B)
                                            (Y-REF6293 Y)
                                            (BERR_OUT-REF6295 BERR_OUT)
                                            (ERR_BNDS_NORM-REF6297
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6298
                                             ERR_BNDS_COMP)
                                            (RES-REF6299 RES)
                                            (AYB-REF6300 AYB)
                                            (DY-REF6301 DY)
                                            (Y_TAIL-REF6302 Y_TAIL))
      (%%CLA_HERFSX_EXTENDED PREC_TYPE-REF6280 UPLO N-REF6282
       NRHS-REF6283 A-REF6284 LDA-REF6285 AF-REF6286 LDAF-REF6287
       IPIV-REF6288 COLEQU-REF6289 C-REF6290 B-REF6291 LDB-REF6292
       Y-REF6293 LDY-REF6294 BERR_OUT-REF6295 N_NORMS-REF6296
       ERR_BNDS_NORM-REF6297 ERR_BNDS_COMP-REF6298 RES-REF6299
       AYB-REF6300 DY-REF6301 Y_TAIL-REF6302 RCOND-REF6303
       ITHRESH-REF6304 RTHRESH-REF6305 DZ_UB-REF6306
       IGNORE_CWISE-REF6307 INFO-REF6308))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARFX "zlarfx_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6310 ':INT32) (N-REF6311 ':INT32)
                              (TAU-REF6313
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF6315 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6310 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6311 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF6313
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6315 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6312 V)
                                            (C-REF6314 C)
                                            (WORK-REF6316 WORK))
      (%%ZLARFX SIDE M-REF6310 N-REF6311 V-REF6312 TAU-REF6313
       C-REF6314 LDC-REF6315 WORK-REF6316))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEMLQ "sgemlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (TSIZE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEMLQ
    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6319 ':INT32) (N-REF6320 ':INT32)
                              (K-REF6321 ':INT32) (LDA-REF6323 ':INT32)
                              (TSIZE-REF6325 ':INT32)
                              (LDC-REF6327 ':INT32)
                              (LWORK-REF6329 ':INT32)
                              (INFO-REF6330 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6319 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6320 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6321 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6323 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6325 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6327 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6329 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6330 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6322 A)
                                            (T-REF6324 T)
                                            (C-REF6326 C)
                                            (WORK-REF6328 WORK))
      (%%SGEMLQ SIDE TRANS M-REF6319 N-REF6320 K-REF6321 A-REF6322
       LDA-REF6323 T-REF6324 TSIZE-REF6325 C-REF6326 LDC-REF6327
       WORK-REF6328 LWORK-REF6329 INFO-REF6330))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGHD3 "dgghd3_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGHD3
    (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGHD3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6333 ':INT32) (ILO-REF6334 ':INT32)
                              (IHI-REF6335 ':INT32)
                              (LDA-REF6337 ':INT32)
                              (LDB-REF6339 ':INT32)
                              (LDQ-REF6341 ':INT32)
                              (LDZ-REF6343 ':INT32)
                              (LWORK-REF6345 ':INT32)
                              (INFO-REF6346 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6333 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6334 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6335 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6337 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6339 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6341 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6343 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6345 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6346 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6336 A)
                                            (B-REF6338 B)
                                            (Q-REF6340 Q)
                                            (Z-REF6342 Z)
                                            (WORK-REF6344 WORK))
      (%%DGGHD3 COMPQ COMPZ N-REF6333 ILO-REF6334 IHI-REF6335 A-REF6336
       LDA-REF6337 B-REF6338 LDB-REF6339 Q-REF6340 LDQ-REF6341
       Z-REF6342 LDZ-REF6343 WORK-REF6344 LWORK-REF6345 INFO-REF6346))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBEVD_2STAGE "chbevd_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (LRWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBEVD_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6349 ':INT32) (KD-REF6350 ':INT32)
                              (LDAB-REF6352 ':INT32)
                              (LDZ-REF6355 ':INT32)
                              (LWORK-REF6357 ':INT32)
                              (LRWORK-REF6359 ':INT32)
                              (LIWORK-REF6361 ':INT32)
                              (INFO-REF6362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6349 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF6350 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6352 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6355 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6357 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF6359 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6361 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6351 AB)
                                            (W-REF6353 W)
                                            (Z-REF6354 Z)
                                            (WORK-REF6356 WORK)
                                            (RWORK-REF6358 RWORK)
                                            (IWORK-REF6360 IWORK))
      (%%CHBEVD_2STAGE JOBZ UPLO N-REF6349 KD-REF6350 AB-REF6351
       LDAB-REF6352 W-REF6353 Z-REF6354 LDZ-REF6355 WORK-REF6356
       LWORK-REF6357 RWORK-REF6358 LRWORK-REF6359 IWORK-REF6360
       LIWORK-REF6361 INFO-REF6362))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPTTRS "dpttrs_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPTTRS (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTRS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6363 ':INT32)
                              (NRHS-REF6364 ':INT32)
                              (LDB-REF6368 ':INT32)
                              (INFO-REF6369 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6363 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6364 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6368 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6369 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6365 D)
                                            (E-REF6366 E)
                                            (B-REF6367 B))
      (%%DPTTRS N-REF6363 NRHS-REF6364 D-REF6365 E-REF6366 B-REF6367
       LDB-REF6368 INFO-REF6369))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAG2 "dlag2_")
  ((A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (SAFMIN :FOREIGN-ADDRESS)
   (SCALE1 :FOREIGN-ADDRESS) (SCALE2 :FOREIGN-ADDRESS)
   (WR1 :FOREIGN-ADDRESS) (WR2 :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAG2 (A LDA B LDB SAFMIN SCALE1 SCALE2 WR1 WR2 WI)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SAFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF6371 ':INT32)
                              (LDB-REF6373 ':INT32)
                              (SAFMIN-REF6374 ':DOUBLE)
                              (SCALE1-REF6375 ':DOUBLE)
                              (SCALE2-REF6376 ':DOUBLE)
                              (WR1-REF6377 ':DOUBLE)
                              (WR2-REF6378 ':DOUBLE)
                              (WI-REF6379 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6371 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6373 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF6374 :DOUBLE) SAFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF6375 :DOUBLE) SCALE1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF6376 :DOUBLE) SCALE2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF6377 :DOUBLE) WR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF6378 :DOUBLE) WR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF6379 :DOUBLE) WI)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6370 A)
                                            (B-REF6372 B))
      (%%DLAG2 A-REF6370 LDA-REF6371 B-REF6372 LDB-REF6373
       SAFMIN-REF6374 SCALE1-REF6375 SCALE2-REF6376 WR1-REF6377
       WR2-REF6378 WI-REF6379))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESVXX "cgesvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RPVGRW :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESVXX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6382 ':INT32)
                              (NRHS-REF6383 ':INT32)
                              (LDA-REF6385 ':INT32)
                              (LDAF-REF6387 ':INT32)
                              (LDB-REF6393 ':INT32)
                              (LDX-REF6395 ':INT32)
                              (RCOND-REF6396 ':FLOAT)
                              (RPVGRW-REF6397 ':FLOAT)
                              (N_ERR_BNDS-REF6399 ':INT32)
                              (NPARAMS-REF6402 ':INT32)
                              (INFO-REF6406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6382 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6383 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6385 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6387 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6393 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6395 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6396 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6397 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6399 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6402 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6406 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6384 A)
                                            (AF-REF6386 AF)
                                            (IPIV-REF6388 IPIV)
                                            (R-REF6390 R)
                                            (C-REF6391 C)
                                            (B-REF6392 B)
                                            (X-REF6394 X)
                                            (BERR-REF6398 BERR)
                                            (ERR_BNDS_NORM-REF6400
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6401
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF6403 PARAMS)
                                            (WORK-REF6404 WORK)
                                            (RWORK-REF6405 RWORK))
      (%%CGESVXX FACT TRANS N-REF6382 NRHS-REF6383 A-REF6384
       LDA-REF6385 AF-REF6386 LDAF-REF6387 IPIV-REF6388 EQUED R-REF6390
       C-REF6391 B-REF6392 LDB-REF6393 X-REF6394 LDX-REF6395
       RCOND-REF6396 RPVGRW-REF6397 BERR-REF6398 N_ERR_BNDS-REF6399
       ERR_BNDS_NORM-REF6400 ERR_BNDS_COMP-REF6401 NPARAMS-REF6402
       PARAMS-REF6403 WORK-REF6404 RWORK-REF6405 INFO-REF6406))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLACRM "zlacrm_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLACRM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACRM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6407 ':INT32) (N-REF6408 ':INT32)
                              (LDA-REF6410 ':INT32)
                              (LDB-REF6412 ':INT32)
                              (LDC-REF6414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6407 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6408 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6410 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6412 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6414 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6409 A)
                                            (B-REF6411 B)
                                            (C-REF6413 C)
                                            (RWORK-REF6415 RWORK))
      (%%ZLACRM M-REF6407 N-REF6408 A-REF6409 LDA-REF6410 B-REF6411
       LDB-REF6412 C-REF6413 LDC-REF6414 RWORK-REF6415))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTBCON "ztbcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTBCON
    (NORM UPLO DIAG N KD AB LDAB RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6419 ':INT32) (KD-REF6420 ':INT32)
                              (LDAB-REF6422 ':INT32)
                              (RCOND-REF6423 ':DOUBLE)
                              (INFO-REF6426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6419 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF6420 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6422 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6423 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6421 AB)
                                            (WORK-REF6424 WORK)
                                            (RWORK-REF6425 RWORK))
      (%%ZTBCON NORM UPLO DIAG N-REF6419 KD-REF6420 AB-REF6421
       LDAB-REF6422 RCOND-REF6423 WORK-REF6424 RWORK-REF6425
       INFO-REF6426))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD7 "dlasd7_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (ZW :FOREIGN-ADDRESS)
   (VF :FOREIGN-ADDRESS) (VFW :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VLW :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (IDX :FOREIGN-ADDRESS) (IDXP :FOREIGN-ADDRESS)
   (IDXQ :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (LDGCOL :FOREIGN-ADDRESS) (GIVNUM :FOREIGN-ADDRESS)
   (LDGNUM :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD7
    (ICOMPQ NL NR SQRE K D Z ZW VF VFW VL VLW ALPHA BETA DSIGMA IDX
     IDXP IDXQ PERM GIVPTR GIVCOL LDGCOL GIVNUM LDGNUM C S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD7)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ZW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VFW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VLW)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF6427 ':INT32)
                              (NL-REF6428 ':INT32) (NR-REF6429 ':INT32)
                              (SQRE-REF6430 ':INT32)
                              (K-REF6431 ':INT32)
                              (ALPHA-REF6439 ':DOUBLE)
                              (BETA-REF6440 ':DOUBLE)
                              (GIVPTR-REF6446 ':INT32)
                              (LDGCOL-REF6448 ':INT32)
                              (LDGNUM-REF6450 ':INT32)
                              (C-REF6451 ':DOUBLE) (S-REF6452 ':DOUBLE)
                              (INFO-REF6453 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF6427 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF6428 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF6429 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF6430 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6431 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF6439 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF6440 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF6446 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF6448 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF6450 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF6451 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF6452 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6453 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6432 D)
                                            (Z-REF6433 Z)
                                            (ZW-REF6434 ZW)
                                            (VF-REF6435 VF)
                                            (VFW-REF6436 VFW)
                                            (VL-REF6437 VL)
                                            (VLW-REF6438 VLW)
                                            (DSIGMA-REF6441 DSIGMA)
                                            (IDX-REF6442 IDX)
                                            (IDXP-REF6443 IDXP)
                                            (IDXQ-REF6444 IDXQ)
                                            (PERM-REF6445 PERM)
                                            (GIVCOL-REF6447 GIVCOL)
                                            (GIVNUM-REF6449 GIVNUM))
      (%%DLASD7 ICOMPQ-REF6427 NL-REF6428 NR-REF6429 SQRE-REF6430
       K-REF6431 D-REF6432 Z-REF6433 ZW-REF6434 VF-REF6435 VFW-REF6436
       VL-REF6437 VLW-REF6438 ALPHA-REF6439 BETA-REF6440 DSIGMA-REF6441
       IDX-REF6442 IDXP-REF6443 IDXQ-REF6444 PERM-REF6445
       GIVPTR-REF6446 GIVCOL-REF6447 LDGCOL-REF6448 GIVNUM-REF6449
       LDGNUM-REF6450 C-REF6451 S-REF6452 INFO-REF6453))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNGTR "zungtr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6455 ':INT32) (LDA-REF6457 ':INT32)
                              (LWORK-REF6460 ':INT32)
                              (INFO-REF6461 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6455 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6457 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6460 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6461 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6456 A)
                                            (TAU-REF6458 TAU)
                                            (WORK-REF6459 WORK))
      (%%ZUNGTR UPLO N-REF6455 A-REF6456 LDA-REF6457 TAU-REF6458
       WORK-REF6459 LWORK-REF6460 INFO-REF6461))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEESX "cgeesx_")
  ((JOBVS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (VS :FOREIGN-ADDRESS)
   (LDVS :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEESX
    (JOBVS SORT SELECT SENSE N A LDA SDIM W VS LDVS RCONDE RCONDV WORK
     LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEESX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6464 ':INT32)
                              (N-REF6466 ':INT32) (LDA-REF6468 ':INT32)
                              (SDIM-REF6469 ':INT32)
                              (LDVS-REF6472 ':INT32)
                              (RCONDE-REF6473 ':FLOAT)
                              (RCONDV-REF6474 ':FLOAT)
                              (LWORK-REF6476 ':INT32)
                              (INFO-REF6479 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6464 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6466 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6468 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6469 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6472 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF6473 :FLOAT) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF6474 :FLOAT) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6476 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6479 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6467 A)
                                            (W-REF6470 W)
                                            (VS-REF6471 VS)
                                            (WORK-REF6475 WORK)
                                            (RWORK-REF6477 RWORK)
                                            (BWORK-REF6478 BWORK))
      (%%CGEESX JOBVS SORT SELECT-REF6464 SENSE N-REF6466 A-REF6467
       LDA-REF6468 SDIM-REF6469 W-REF6470 VS-REF6471 LDVS-REF6472
       RCONDE-REF6473 RCONDV-REF6474 WORK-REF6475 LWORK-REF6476
       RWORK-REF6477 BWORK-REF6478 INFO-REF6479))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEGST "chegst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF6480 ':INT32)
                              (N-REF6482 ':INT32) (LDA-REF6484 ':INT32)
                              (LDB-REF6486 ':INT32)
                              (INFO-REF6487 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF6480 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6484 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6486 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6487 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6483 A)
                                            (B-REF6485 B))
      (%%CHEGST ITYPE-REF6480 UPLO N-REF6482 A-REF6483 LDA-REF6484
       B-REF6485 LDB-REF6486 INFO-REF6487))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARNV "clarnv_")
  ((IDIST :FOREIGN-ADDRESS) (ISEED :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARNV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISEED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF6488 ':INT32)
                              (N-REF6490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF6488 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6490 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF6489 ISEED)
                                            (X-REF6491 X))
      (%%CLARNV IDIST-REF6488 ISEED-REF6489 N-REF6490 X-REF6491))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAHR2 "dlahr2_")
  ((N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6492 ':INT32) (K-REF6493 ':INT32)
                              (NB-REF6494 ':INT32)
                              (LDA-REF6496 ':INT32)
                              (LDT-REF6499 ':INT32)
                              (LDY-REF6501 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6493 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6494 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6496 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6499 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF6501 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6495 A)
                                            (TAU-REF6497 TAU)
                                            (T-REF6498 T)
                                            (Y-REF6500 Y))
      (%%DLAHR2 N-REF6492 K-REF6493 NB-REF6494 A-REF6495 LDA-REF6496
       TAU-REF6497 T-REF6498 LDT-REF6499 Y-REF6500 LDY-REF6501))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_HEAMV "zla_heamv_")
  ((UPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_HEAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HEAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF6502 ':INT32)
                              (N-REF6503 ':INT32)
                              (ALPHA-REF6504 ':DOUBLE)
                              (LDA-REF6506 ':INT32)
                              (INCX-REF6508 ':INT32)
                              (BETA-REF6509 ':DOUBLE)
                              (INCY-REF6511 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF6502 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6503 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF6504 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6506 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF6508 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF6509 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF6511 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6505 A)
                                            (X-REF6507 X)
                                            (Y-REF6510 Y))
      (%%ZLA_HEAMV UPLO-REF6502 N-REF6503 ALPHA-REF6504 A-REF6505
       LDA-REF6506 X-REF6507 INCX-REF6508 BETA-REF6509 Y-REF6510
       INCY-REF6511))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBCON "sgbcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBCON
    (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6513 ':INT32) (KL-REF6514 ':INT32)
                              (KU-REF6515 ':INT32)
                              (LDAB-REF6517 ':INT32)
                              (ANORM-REF6519 ':FLOAT)
                              (RCOND-REF6520 ':FLOAT)
                              (INFO-REF6523 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6513 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6514 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6515 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6517 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6519 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6520 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6523 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6516 AB)
                                            (IPIV-REF6518 IPIV)
                                            (WORK-REF6521 WORK)
                                            (IWORK-REF6522 IWORK))
      (%%SGBCON NORM N-REF6513 KL-REF6514 KU-REF6515 AB-REF6516
       LDAB-REF6517 IPIV-REF6518 ANORM-REF6519 RCOND-REF6520
       WORK-REF6521 IWORK-REF6522 INFO-REF6523))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILADLC "iladlc_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILADLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADLC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6524 ':INT32) (N-REF6525 ':INT32)
                              (LDA-REF6527 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6524 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6525 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6527 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6526 A))
      (%%ILADLC M-REF6524 N-REF6525 A-REF6526 LDA-REF6527))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD6 "slasd6_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (VF :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (IDXQ :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (LDGNUM :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD6
    (ICOMPQ NL NR SQRE D VF VL ALPHA BETA IDXQ PERM GIVPTR GIVCOL
     LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF6528 ':INT32)
                              (NL-REF6529 ':INT32) (NR-REF6530 ':INT32)
                              (SQRE-REF6531 ':INT32)
                              (ALPHA-REF6535 ':FLOAT)
                              (BETA-REF6536 ':FLOAT)
                              (GIVPTR-REF6539 ':INT32)
                              (LDGCOL-REF6541 ':INT32)
                              (LDGNUM-REF6543 ':INT32)
                              (K-REF6548 ':INT32) (C-REF6549 ':FLOAT)
                              (S-REF6550 ':FLOAT)
                              (INFO-REF6553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF6528 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF6529 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF6530 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF6531 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF6535 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF6536 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF6539 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF6541 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF6543 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6548 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF6549 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF6550 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6532 D)
                                            (VF-REF6533 VF)
                                            (VL-REF6534 VL)
                                            (IDXQ-REF6537 IDXQ)
                                            (PERM-REF6538 PERM)
                                            (GIVCOL-REF6540 GIVCOL)
                                            (GIVNUM-REF6542 GIVNUM)
                                            (POLES-REF6544 POLES)
                                            (DIFL-REF6545 DIFL)
                                            (DIFR-REF6546 DIFR)
                                            (Z-REF6547 Z)
                                            (WORK-REF6551 WORK)
                                            (IWORK-REF6552 IWORK))
      (%%SLASD6 ICOMPQ-REF6528 NL-REF6529 NR-REF6530 SQRE-REF6531
       D-REF6532 VF-REF6533 VL-REF6534 ALPHA-REF6535 BETA-REF6536
       IDXQ-REF6537 PERM-REF6538 GIVPTR-REF6539 GIVCOL-REF6540
       LDGCOL-REF6541 GIVNUM-REF6542 LDGNUM-REF6543 POLES-REF6544
       DIFL-REF6545 DIFR-REF6546 Z-REF6547 K-REF6548 C-REF6549
       S-REF6550 WORK-REF6551 IWORK-REF6552 INFO-REF6553))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED4 "slaed4_")
  ((N :FOREIGN-ADDRESS) (I :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (DELTA :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (DLAM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED4 (N I D Z DELTA RHO DLAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DELTA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6554 ':INT32) (I-REF6555 ':INT32)
                              (RHO-REF6559 ':FLOAT)
                              (DLAM-REF6560 ':FLOAT)
                              (INFO-REF6561 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6554 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF6555 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF6559 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF6560 :FLOAT) DLAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6561 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6556 D)
                                            (Z-REF6557 Z)
                                            (DELTA-REF6558 DELTA))
      (%%SLAED4 N-REF6554 I-REF6555 D-REF6556 Z-REF6557 DELTA-REF6558
       RHO-REF6559 DLAM-REF6560 INFO-REF6561))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SLA_GERFSX_EXTENDED "sla_gerfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS) (TRANS_TYPE :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERRS_N :FOREIGN-ADDRESS) (ERRS_C :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_GERFSX_EXTENDED
    (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
     LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL RCOND ITHRESH
     RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERRS_N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERRS_C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF6562 ':INT32)
                              (TRANS_TYPE-REF6563 ':INT32)
                              (N-REF6564 ':INT32)
                              (NRHS-REF6565 ':INT32)
                              (LDA-REF6567 ':INT32)
                              (LDAF-REF6569 ':INT32)
                              (COLEQU-REF6571 ':INT32)
                              (LDB-REF6574 ':INT32)
                              (LDY-REF6576 ':INT32)
                              (N_NORMS-REF6578 ':INT32)
                              (RCOND-REF6585 ':FLOAT)
                              (ITHRESH-REF6586 ':INT32)
                              (RTHRESH-REF6587 ':FLOAT)
                              (DZ_UB-REF6588 ':FLOAT)
                              (IGNORE_CWISE-REF6589 ':INT32)
                              (INFO-REF6590 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF6562 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF6563 :INT32)
                      TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6564 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6565 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6567 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6569 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF6571 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6574 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF6576 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF6578 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6585 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF6586 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF6587 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF6588 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF6589 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6590 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6566 A)
                                            (AF-REF6568 AF)
                                            (IPIV-REF6570 IPIV)
                                            (C-REF6572 C)
                                            (B-REF6573 B)
                                            (Y-REF6575 Y)
                                            (BERR_OUT-REF6577 BERR_OUT)
                                            (ERRS_N-REF6579 ERRS_N)
                                            (ERRS_C-REF6580 ERRS_C)
                                            (RES-REF6581 RES)
                                            (AYB-REF6582 AYB)
                                            (DY-REF6583 DY)
                                            (Y_TAIL-REF6584 Y_TAIL))
      (%%SLA_GERFSX_EXTENDED PREC_TYPE-REF6562 TRANS_TYPE-REF6563
       N-REF6564 NRHS-REF6565 A-REF6566 LDA-REF6567 AF-REF6568
       LDAF-REF6569 IPIV-REF6570 COLEQU-REF6571 C-REF6572 B-REF6573
       LDB-REF6574 Y-REF6575 LDY-REF6576 BERR_OUT-REF6577
       N_NORMS-REF6578 ERRS_N-REF6579 ERRS_C-REF6580 RES-REF6581
       AYB-REF6582 DY-REF6583 Y_TAIL-REF6584 RCOND-REF6585
       ITHRESH-REF6586 RTHRESH-REF6587 DZ_UB-REF6588
       IGNORE_CWISE-REF6589 INFO-REF6590))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRR "slarrr_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRR (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6591 ':INT32)
                              (INFO-REF6594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6591 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6594 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6592 D)
                                            (E-REF6593 E))
      (%%SLARRR N-REF6591 D-REF6592 E-REF6593 INFO-REF6594))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRCON "ctrcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRCON
    (NORM UPLO DIAG N A LDA RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6598 ':INT32) (LDA-REF6600 ':INT32)
                              (RCOND-REF6601 ':FLOAT)
                              (INFO-REF6604 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6598 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6600 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6601 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6604 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6599 A)
                                            (WORK-REF6602 WORK)
                                            (RWORK-REF6603 RWORK))
      (%%CTRCON NORM UPLO DIAG N-REF6598 A-REF6599 LDA-REF6600
       RCOND-REF6601 WORK-REF6602 RWORK-REF6603 INFO-REF6604))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGTSV "zgtsv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6605 ':INT32)
                              (NRHS-REF6606 ':INT32)
                              (LDB-REF6611 ':INT32)
                              (INFO-REF6612 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6605 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6606 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6611 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6612 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF6607 DL)
                                            (D-REF6608 D)
                                            (DU-REF6609 DU)
                                            (B-REF6610 B))
      (%%ZGTSV N-REF6605 NRHS-REF6606 DL-REF6607 D-REF6608 DU-REF6609
       B-REF6610 LDB-REF6611 INFO-REF6612))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYGVD "ssygvd_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYGVD
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGVD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF6613 ':INT32)
                              (N-REF6616 ':INT32) (LDA-REF6618 ':INT32)
                              (LDB-REF6620 ':INT32)
                              (LWORK-REF6623 ':INT32)
                              (LIWORK-REF6625 ':INT32)
                              (INFO-REF6626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF6613 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6616 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6618 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6620 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6623 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6625 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6626 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6617 A)
                                            (B-REF6619 B)
                                            (W-REF6621 W)
                                            (WORK-REF6622 WORK)
                                            (IWORK-REF6624 IWORK))
      (%%SSYGVD ITYPE-REF6613 JOBZ UPLO N-REF6616 A-REF6617 LDA-REF6618
       B-REF6619 LDB-REF6620 W-REF6621 WORK-REF6622 LWORK-REF6623
       IWORK-REF6624 LIWORK-REF6625 INFO-REF6626))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPEVD "dspevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPEVD
    (JOBZ UPLO N AP W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6629 ':INT32) (LDZ-REF6633 ':INT32)
                              (LWORK-REF6635 ':INT32)
                              (LIWORK-REF6637 ':INT32)
                              (INFO-REF6638 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6629 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6633 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6635 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6637 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6638 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF6630 AP)
                                            (W-REF6631 W)
                                            (Z-REF6632 Z)
                                            (WORK-REF6634 WORK)
                                            (IWORK-REF6636 IWORK))
      (%%DSPEVD JOBZ UPLO N-REF6629 AP-REF6630 W-REF6631 Z-REF6632
       LDZ-REF6633 WORK-REF6634 LWORK-REF6635 IWORK-REF6636
       LIWORK-REF6637 INFO-REF6638))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTFTRI "ctftri_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6642 ':INT32)
                              (INFO-REF6644 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6642 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6644 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6643 A))
      (%%CTFTRI TRANSR UPLO DIAG N-REF6642 A-REF6643 INFO-REF6644))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBEV "dsbev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6647 ':INT32) (KD-REF6648 ':INT32)
                              (LDAB-REF6650 ':INT32)
                              (LDZ-REF6653 ':INT32)
                              (INFO-REF6655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6647 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF6648 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6650 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6653 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6655 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6649 AB)
                                            (W-REF6651 W)
                                            (Z-REF6652 Z)
                                            (WORK-REF6654 WORK))
      (%%DSBEV JOBZ UPLO N-REF6647 KD-REF6648 AB-REF6649 LDAB-REF6650
       W-REF6651 Z-REF6652 LDZ-REF6653 WORK-REF6654 INFO-REF6655))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESVDX "cgesvdx_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESVDX
    (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT WORK
     LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVDX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6659 ':INT32) (N-REF6660 ':INT32)
                              (LDA-REF6662 ':INT32)
                              (VL-REF6663 ':FLOAT) (VU-REF6664 ':FLOAT)
                              (IL-REF6665 ':INT32) (IU-REF6666 ':INT32)
                              (NS-REF6667 ':INT32)
                              (LDU-REF6670 ':INT32)
                              (LDVT-REF6672 ':INT32)
                              (LWORK-REF6674 ':INT32)
                              (INFO-REF6677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6659 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6662 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6663 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6664 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6665 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6666 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF6667 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6670 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6672 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6674 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6677 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6661 A)
                                            (S-REF6668 S)
                                            (U-REF6669 U)
                                            (VT-REF6671 VT)
                                            (WORK-REF6673 WORK)
                                            (RWORK-REF6675 RWORK)
                                            (IWORK-REF6676 IWORK))
      (%%CGESVDX JOBU JOBVT RANGE M-REF6659 N-REF6660 A-REF6661
       LDA-REF6662 VL-REF6663 VU-REF6664 IL-REF6665 IU-REF6666
       NS-REF6667 S-REF6668 U-REF6669 LDU-REF6670 VT-REF6671
       LDVT-REF6672 WORK-REF6673 LWORK-REF6674 RWORK-REF6675
       IWORK-REF6676 INFO-REF6677))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEES "sgees_")
  ((JOBVS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (SDIM :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (VS :FOREIGN-ADDRESS) (LDVS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEES
    (JOBVS SORT SELECT N A LDA SDIM WR WI VS LDVS WORK LWORK BWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEES)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6680 ':INT32)
                              (N-REF6681 ':INT32) (LDA-REF6683 ':INT32)
                              (SDIM-REF6684 ':INT32)
                              (LDVS-REF6688 ':INT32)
                              (LWORK-REF6690 ':INT32)
                              (INFO-REF6692 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6680 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6683 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6684 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6688 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6690 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6692 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6682 A)
                                            (WR-REF6685 WR)
                                            (WI-REF6686 WI)
                                            (VS-REF6687 VS)
                                            (WORK-REF6689 WORK)
                                            (BWORK-REF6691 BWORK))
      (%%SGEES JOBVS SORT SELECT-REF6680 N-REF6681 A-REF6682
       LDA-REF6683 SDIM-REF6684 WR-REF6685 WI-REF6686 VS-REF6687
       LDVS-REF6688 WORK-REF6689 LWORK-REF6690 BWORK-REF6691
       INFO-REF6692))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGTRFS "dgtrfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DLF :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (DUF :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGTRFS
    (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR BERR
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DLF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DUF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6694 ':INT32)
                              (NRHS-REF6695 ':INT32)
                              (LDB-REF6705 ':INT32)
                              (LDX-REF6707 ':INT32)
                              (INFO-REF6712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6694 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6695 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6705 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6707 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF6696 DL)
                                            (D-REF6697 D)
                                            (DU-REF6698 DU)
                                            (DLF-REF6699 DLF)
                                            (DF-REF6700 DF)
                                            (DUF-REF6701 DUF)
                                            (DU2-REF6702 DU2)
                                            (IPIV-REF6703 IPIV)
                                            (B-REF6704 B)
                                            (X-REF6706 X)
                                            (FERR-REF6708 FERR)
                                            (BERR-REF6709 BERR)
                                            (WORK-REF6710 WORK)
                                            (IWORK-REF6711 IWORK))
      (%%DGTRFS TRANS N-REF6694 NRHS-REF6695 DL-REF6696 D-REF6697
       DU-REF6698 DLF-REF6699 DF-REF6700 DUF-REF6701 DU2-REF6702
       IPIV-REF6703 B-REF6704 LDB-REF6705 X-REF6706 LDX-REF6707
       FERR-REF6708 BERR-REF6709 WORK-REF6710 IWORK-REF6711
       INFO-REF6712))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRF_AA "ssytrf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6714 ':INT32) (LDA-REF6716 ':INT32)
                              (LWORK-REF6719 ':INT32)
                              (INFO-REF6720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6719 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6715 A)
                                            (IPIV-REF6717 IPIV)
                                            (WORK-REF6718 WORK))
      (%%SSYTRF_AA UPLO N-REF6714 A-REF6715 LDA-REF6716 IPIV-REF6717
       WORK-REF6718 LWORK-REF6719 INFO-REF6720))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GBRCOND_C "zla_gbrcond_c_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (CAPPLY :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GBRCOND_C
    (TRANS N KL KU AB LDAB AFB LDAFB IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6722 ':INT32) (KL-REF6723 ':INT32)
                              (KU-REF6724 ':INT32)
                              (LDAB-REF6726 ':INT32)
                              (LDAFB-REF6728 ':INT32)
                              (CAPPLY-REF6731 ':INT32)
                              (INFO-REF6732 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6723 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6724 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6726 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF6728 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF6731 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6732 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6725 AB)
                                            (AFB-REF6727 AFB)
                                            (IPIV-REF6729 IPIV)
                                            (C-REF6730 C)
                                            (WORK-REF6733 WORK)
                                            (RWORK-REF6734 RWORK))
      (%%ZLA_GBRCOND_C TRANS N-REF6722 KL-REF6723 KU-REF6724 AB-REF6725
       LDAB-REF6726 AFB-REF6727 LDAFB-REF6728 IPIV-REF6729 C-REF6730
       CAPPLY-REF6731 INFO-REF6732 WORK-REF6733 RWORK-REF6734))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANGT "zlangt_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6736 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6736 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF6737 DL)
                                            (D-REF6738 D)
                                            (DU-REF6739 DU))
      (%%ZLANGT NORM N-REF6736 DL-REF6737 D-REF6738 DU-REF6739))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETD2 "zhetd2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETD2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6741 ':INT32) (LDA-REF6743 ':INT32)
                              (INFO-REF6747 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6741 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6743 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6747 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6742 A)
                                            (D-REF6744 D)
                                            (E-REF6745 E)
                                            (TAU-REF6746 TAU))
      (%%ZHETD2 UPLO N-REF6741 A-REF6742 LDA-REF6743 D-REF6744
       E-REF6745 TAU-REF6746 INFO-REF6747))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYMV "csymv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYMV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6749 ':INT32)
                              (ALPHA-REF6750
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF6752 ':INT32)
                              (INCX-REF6754 ':INT32)
                              (BETA-REF6755
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF6757 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6749 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF6750
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6752 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF6754 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF6755
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF6757 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6751 A)
                                            (X-REF6753 X)
                                            (Y-REF6756 Y))
      (%%CSYMV UPLO N-REF6749 ALPHA-REF6750 A-REF6751 LDA-REF6752
       X-REF6753 INCX-REF6754 BETA-REF6755 Y-REF6756 INCY-REF6757))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARFY "dlarfy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6759 ':INT32)
                              (INCV-REF6761 ':INT32)
                              (TAU-REF6762 ':DOUBLE)
                              (LDC-REF6764 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF6761 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF6762 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6764 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6760 V)
                                            (C-REF6763 C)
                                            (WORK-REF6765 WORK))
      (%%DLARFY UPLO N-REF6759 V-REF6760 INCV-REF6761 TAU-REF6762
       C-REF6763 LDC-REF6764 WORK-REF6765))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLACPY "zlacpy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACPY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6767 ':INT32) (N-REF6768 ':INT32)
                              (LDA-REF6770 ':INT32)
                              (LDB-REF6772 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6767 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6770 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6772 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6769 A)
                                            (B-REF6771 B))
      (%%ZLACPY UPLO M-REF6767 N-REF6768 A-REF6769 LDA-REF6770
       B-REF6771 LDB-REF6772))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEVR "sstevr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEVR
    (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK LWORK
     IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6775 ':INT32) (VL-REF6778 ':FLOAT)
                              (VU-REF6779 ':FLOAT) (IL-REF6780 ':INT32)
                              (IU-REF6781 ':INT32)
                              (ABSTOL-REF6782 ':FLOAT)
                              (M-REF6783 ':INT32) (LDZ-REF6786 ':INT32)
                              (LWORK-REF6789 ':INT32)
                              (LIWORK-REF6791 ':INT32)
                              (INFO-REF6792 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6775 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6778 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6779 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6780 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6781 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF6782 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6783 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6786 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6789 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6791 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6792 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6776 D)
                                            (E-REF6777 E)
                                            (W-REF6784 W)
                                            (Z-REF6785 Z)
                                            (ISUPPZ-REF6787 ISUPPZ)
                                            (WORK-REF6788 WORK)
                                            (IWORK-REF6790 IWORK))
      (%%SSTEVR JOBZ RANGE N-REF6775 D-REF6776 E-REF6777 VL-REF6778
       VU-REF6779 IL-REF6780 IU-REF6781 ABSTOL-REF6782 M-REF6783
       W-REF6784 Z-REF6785 LDZ-REF6786 ISUPPZ-REF6787 WORK-REF6788
       LWORK-REF6789 IWORK-REF6790 LIWORK-REF6791 INFO-REF6792))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANHT "clanht_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANHT (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6794 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6794 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6795 D)
                                            (E-REF6796 E))
      (%%CLANHT NORM N-REF6794 D-REF6795 E-REF6796))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRS_ROOK "zhetrs_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6798 ':INT32)
                              (NRHS-REF6799 ':INT32)
                              (LDA-REF6801 ':INT32)
                              (LDB-REF6804 ':INT32)
                              (INFO-REF6805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6798 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6799 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6801 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6804 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6805 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6800 A)
                                            (IPIV-REF6802 IPIV)
                                            (B-REF6803 B))
      (%%ZHETRS_ROOK UPLO N-REF6798 NRHS-REF6799 A-REF6800 LDA-REF6801
       IPIV-REF6802 B-REF6803 LDB-REF6804 INFO-REF6805))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELSY "zgelsy_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RANK :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELSY
    (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6806 ':INT32) (N-REF6807 ':INT32)
                              (NRHS-REF6808 ':INT32)
                              (LDA-REF6810 ':INT32)
                              (LDB-REF6812 ':INT32)
                              (RCOND-REF6814 ':DOUBLE)
                              (RANK-REF6815 ':INT32)
                              (LWORK-REF6817 ':INT32)
                              (INFO-REF6819 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6806 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6807 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6808 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6810 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6812 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6814 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6815 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6817 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6819 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6809 A)
                                            (B-REF6811 B)
                                            (JPVT-REF6813 JPVT)
                                            (WORK-REF6816 WORK)
                                            (RWORK-REF6818 RWORK))
      (%%ZGELSY M-REF6806 N-REF6807 NRHS-REF6808 A-REF6809 LDA-REF6810
       B-REF6811 LDB-REF6812 JPVT-REF6813 RCOND-REF6814 RANK-REF6815
       WORK-REF6816 LWORK-REF6817 RWORK-REF6818 INFO-REF6819))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPRFS "dtprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPRFS
    (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6823 ':INT32)
                              (NRHS-REF6824 ':INT32)
                              (LDB-REF6827 ':INT32)
                              (LDX-REF6829 ':INT32)
                              (INFO-REF6834 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6823 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6824 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6827 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6829 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6834 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF6825 AP)
                                            (B-REF6826 B)
                                            (X-REF6828 X)
                                            (FERR-REF6830 FERR)
                                            (BERR-REF6831 BERR)
                                            (WORK-REF6832 WORK)
                                            (IWORK-REF6833 IWORK))
      (%%DTPRFS UPLO TRANS DIAG N-REF6823 NRHS-REF6824 AP-REF6825
       B-REF6826 LDB-REF6827 X-REF6828 LDX-REF6829 FERR-REF6830
       BERR-REF6831 WORK-REF6832 IWORK-REF6833 INFO-REF6834))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRI "zsytri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6836 ':INT32) (LDA-REF6838 ':INT32)
                              (INFO-REF6841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6836 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6838 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6841 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6837 A)
                                            (IPIV-REF6839 IPIV)
                                            (WORK-REF6840 WORK))
      (%%ZSYTRI UPLO N-REF6836 A-REF6837 LDA-REF6838 IPIV-REF6839
       WORK-REF6840 INFO-REF6841))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD4 "slasd4_")
  ((N :FOREIGN-ADDRESS) (I :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (DELTA :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD4 (N I D Z DELTA RHO SIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DELTA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6842 ':INT32) (I-REF6843 ':INT32)
                              (RHO-REF6847 ':FLOAT)
                              (SIGMA-REF6848 ':FLOAT)
                              (INFO-REF6850 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6842 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF6843 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF6847 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF6848 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6850 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6844 D)
                                            (Z-REF6845 Z)
                                            (DELTA-REF6846 DELTA)
                                            (WORK-REF6849 WORK))
      (%%SLASD4 N-REF6842 I-REF6843 D-REF6844 Z-REF6845 DELTA-REF6846
       RHO-REF6847 SIGMA-REF6848 WORK-REF6849 INFO-REF6850))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_GERPVGRW "cla_gerpvgrw_")
  ((N :FOREIGN-ADDRESS) (NCOLS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERPVGRW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6851 ':INT32)
                              (NCOLS-REF6852 ':INT32)
                              (LDA-REF6854 ':INT32)
                              (LDAF-REF6856 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6851 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF6852 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6854 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6856 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6853 A)
                                            (AF-REF6855 AF))
      (%%CLA_GERPVGRW N-REF6851 NCOLS-REF6852 A-REF6853 LDA-REF6854
       AF-REF6855 LDAF-REF6856))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOTRF "spotrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6858 ':INT32) (LDA-REF6860 ':INT32)
                              (INFO-REF6861 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6858 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6860 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6861 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6859 A))
      (%%SPOTRF UPLO N-REF6858 A-REF6859 LDA-REF6860 INFO-REF6861))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLALSA "clalsa_")
  ((ICOMPQ :FOREIGN-ADDRESS) (SMLSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS) (DIFR :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (POLES :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (LDGCOL :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLALSA
    (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z POLES
     GIVPTR GIVCOL LDGCOL PERM GIVNUM C S RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF6862 ':INT32)
                              (SMLSIZ-REF6863 ':INT32)
                              (N-REF6864 ':INT32)
                              (NRHS-REF6865 ':INT32)
                              (LDB-REF6867 ':INT32)
                              (LDBX-REF6869 ':INT32)
                              (LDU-REF6871 ':INT32)
                              (LDGCOL-REF6880 ':INT32)
                              (INFO-REF6887 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF6862 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF6863 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6864 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6865 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6867 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF6869 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6871 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF6880 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6887 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF6866 B)
                                            (BX-REF6868 BX)
                                            (U-REF6870 U)
                                            (VT-REF6872 VT)
                                            (K-REF6873 K)
                                            (DIFL-REF6874 DIFL)
                                            (DIFR-REF6875 DIFR)
                                            (Z-REF6876 Z)
                                            (POLES-REF6877 POLES)
                                            (GIVPTR-REF6878 GIVPTR)
                                            (GIVCOL-REF6879 GIVCOL)
                                            (PERM-REF6881 PERM)
                                            (GIVNUM-REF6882 GIVNUM)
                                            (C-REF6883 C)
                                            (S-REF6884 S)
                                            (RWORK-REF6885 RWORK)
                                            (IWORK-REF6886 IWORK))
      (%%CLALSA ICOMPQ-REF6862 SMLSIZ-REF6863 N-REF6864 NRHS-REF6865
       B-REF6866 LDB-REF6867 BX-REF6868 LDBX-REF6869 U-REF6870
       LDU-REF6871 VT-REF6872 K-REF6873 DIFL-REF6874 DIFR-REF6875
       Z-REF6876 POLES-REF6877 GIVPTR-REF6878 GIVCOL-REF6879
       LDGCOL-REF6880 PERM-REF6881 GIVNUM-REF6882 C-REF6883 S-REF6884
       RWORK-REF6885 IWORK-REF6886 INFO-REF6887))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEBAK "cgebak_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBAK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6890 ':INT32) (ILO-REF6891 ':INT32)
                              (IHI-REF6892 ':INT32) (M-REF6894 ':INT32)
                              (LDV-REF6896 ':INT32)
                              (INFO-REF6897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6890 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6891 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6892 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6894 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6896 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6897 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF6893 SCALE)
                                            (V-REF6895 V))
      (%%CGEBAK JOB SIDE N-REF6890 ILO-REF6891 IHI-REF6892
       SCALE-REF6893 M-REF6894 V-REF6895 LDV-REF6896 INFO-REF6897))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTF2 "dsytf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6899 ':INT32) (LDA-REF6901 ':INT32)
                              (INFO-REF6903 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6899 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6901 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6903 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6900 A)
                                            (IPIV-REF6902 IPIV))
      (%%DSYTF2 UPLO N-REF6899 A-REF6900 LDA-REF6901 IPIV-REF6902
       INFO-REF6903))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRF "csytrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6905 ':INT32) (LDA-REF6907 ':INT32)
                              (LWORK-REF6910 ':INT32)
                              (INFO-REF6911 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6905 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6907 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6910 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6911 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6906 A)
                                            (IPIV-REF6908 IPIV)
                                            (WORK-REF6909 WORK))
      (%%CSYTRF UPLO N-REF6905 A-REF6906 LDA-REF6907 IPIV-REF6908
       WORK-REF6909 LWORK-REF6910 INFO-REF6911))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNBDB "cunbdb_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIGNS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X12 :FOREIGN-ADDRESS) (LDX12 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (X22 :FOREIGN-ADDRESS) (LDX22 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (TAUQ2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNBDB
    (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22 THETA
     PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X12)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6914 ':INT32) (P-REF6915 ':INT32)
                              (Q-REF6916 ':INT32)
                              (LDX11-REF6918 ':INT32)
                              (LDX12-REF6920 ':INT32)
                              (LDX21-REF6922 ':INT32)
                              (LDX22-REF6924 ':INT32)
                              (LWORK-REF6932 ':INT32)
                              (INFO-REF6933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6914 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6915 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF6916 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF6918 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF6920 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF6922 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF6924 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6932 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6933 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF6917 X11)
                                            (X12-REF6919 X12)
                                            (X21-REF6921 X21)
                                            (X22-REF6923 X22)
                                            (THETA-REF6925 THETA)
                                            (PHI-REF6926 PHI)
                                            (TAUP1-REF6927 TAUP1)
                                            (TAUP2-REF6928 TAUP2)
                                            (TAUQ1-REF6929 TAUQ1)
                                            (TAUQ2-REF6930 TAUQ2)
                                            (WORK-REF6931 WORK))
      (%%CUNBDB TRANS SIGNS M-REF6914 P-REF6915 Q-REF6916 X11-REF6917
       LDX11-REF6918 X12-REF6919 LDX12-REF6920 X21-REF6921
       LDX21-REF6922 X22-REF6923 LDX22-REF6924 THETA-REF6925
       PHI-REF6926 TAUP1-REF6927 TAUP2-REF6928 TAUQ1-REF6929
       TAUQ2-REF6930 WORK-REF6931 LWORK-REF6932 INFO-REF6933))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRK "dlarrk_")
  ((N :FOREIGN-ADDRESS) (IW :FOREIGN-ADDRESS) (GL :FOREIGN-ADDRESS)
   (GU :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E2 :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (RELTOL :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRK (N IW GL GU D E2 PIVMIN RELTOL W WERR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IW)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6934 ':INT32) (IW-REF6935 ':INT32)
                              (GL-REF6936 ':DOUBLE)
                              (GU-REF6937 ':DOUBLE)
                              (PIVMIN-REF6940 ':DOUBLE)
                              (RELTOL-REF6941 ':DOUBLE)
                              (W-REF6942 ':DOUBLE)
                              (WERR-REF6943 ':DOUBLE)
                              (INFO-REF6944 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6934 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF6935 :INT32) IW)
    (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF6936 :DOUBLE) GL)
    (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF6937 :DOUBLE) GU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF6940 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF6941 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF6942 :DOUBLE) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF6943 :DOUBLE) WERR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6944 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6938 D)
                                            (E2-REF6939 E2))
      (%%DLARRK N-REF6934 IW-REF6935 GL-REF6936 GU-REF6937 D-REF6938
       E2-REF6939 PIVMIN-REF6940 RELTOL-REF6941 W-REF6942 WERR-REF6943
       INFO-REF6944))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASCL2 "zlascl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6945 ':INT32) (N-REF6946 ':INT32)
                              (LDX-REF6949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6945 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6946 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6949 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6947 D)
                                            (X-REF6948 X))
      (%%ZLASCL2 M-REF6945 N-REF6946 D-REF6947 X-REF6948 LDX-REF6949))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYCON "dsycon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYCON
    (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6951 ':INT32) (LDA-REF6953 ':INT32)
                              (ANORM-REF6955 ':DOUBLE)
                              (RCOND-REF6956 ':DOUBLE)
                              (INFO-REF6959 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6951 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6953 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6955 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6956 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6959 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6952 A)
                                            (IPIV-REF6954 IPIV)
                                            (WORK-REF6957 WORK)
                                            (IWORK-REF6958 IWORK))
      (%%DSYCON UPLO N-REF6951 A-REF6952 LDA-REF6953 IPIV-REF6954
       ANORM-REF6955 RCOND-REF6956 WORK-REF6957 IWORK-REF6958
       INFO-REF6959))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQL2 "dgeql2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6960 ':INT32) (N-REF6961 ':INT32)
                              (LDA-REF6963 ':INT32)
                              (INFO-REF6966 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6960 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6961 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6963 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6966 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6962 A)
                                            (TAU-REF6964 TAU)
                                            (WORK-REF6965 WORK))
      (%%DGEQL2 M-REF6960 N-REF6961 A-REF6962 LDA-REF6963 TAU-REF6964
       WORK-REF6965 INFO-REF6966))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEQUB "dsyequb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEQUB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6968 ':INT32) (LDA-REF6970 ':INT32)
                              (SCOND-REF6972 ':DOUBLE)
                              (AMAX-REF6973 ':DOUBLE)
                              (INFO-REF6975 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6968 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6970 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF6972 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6973 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6975 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6969 A)
                                            (S-REF6971 S)
                                            (WORK-REF6974 WORK))
      (%%DSYEQUB UPLO N-REF6968 A-REF6969 LDA-REF6970 S-REF6971
       SCOND-REF6972 AMAX-REF6973 WORK-REF6974 INFO-REF6975))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEV "dsyev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEV (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6978 ':INT32) (LDA-REF6980 ':INT32)
                              (LWORK-REF6983 ':INT32)
                              (INFO-REF6984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6978 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6980 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6983 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6984 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6979 A)
                                            (W-REF6981 W)
                                            (WORK-REF6982 WORK))
      (%%DSYEV JOBZ UPLO N-REF6978 A-REF6979 LDA-REF6980 W-REF6981
       WORK-REF6982 LWORK-REF6983 INFO-REF6984))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASYF "clasyf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6986 ':INT32) (NB-REF6987 ':INT32)
                              (KB-REF6988 ':INT32)
                              (LDA-REF6990 ':INT32)
                              (LDW-REF6993 ':INT32)
                              (INFO-REF6994 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6986 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6987 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF6988 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6990 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF6993 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6994 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6989 A)
                                            (IPIV-REF6991 IPIV)
                                            (W-REF6992 W))
      (%%CLASYF UPLO N-REF6986 NB-REF6987 KB-REF6988 A-REF6989
       LDA-REF6990 IPIV-REF6991 W-REF6992 LDW-REF6993 INFO-REF6994))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPTCON "cptcon_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPTCON (N D E ANORM RCOND RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTCON)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6995 ':INT32)
                              (ANORM-REF6998 ':FLOAT)
                              (RCOND-REF6999 ':FLOAT)
                              (INFO-REF7001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6995 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6998 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6999 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF6996 D)
                                            (E-REF6997 E)
                                            (RWORK-REF7000 RWORK))
      (%%CPTCON N-REF6995 D-REF6996 E-REF6997 ANORM-REF6998
       RCOND-REF6999 RWORK-REF7000 INFO-REF7001))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRSEN "dtrsen_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRSEN
    (JOB COMPQ SELECT N T LDT Q LDQ WR WI M S SEP WORK LWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSEN)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7005 ':INT32) (LDT-REF7007 ':INT32)
                              (LDQ-REF7009 ':INT32) (M-REF7012 ':INT32)
                              (S-REF7013 ':DOUBLE)
                              (SEP-REF7014 ':DOUBLE)
                              (LWORK-REF7016 ':INT32)
                              (LIWORK-REF7018 ':INT32)
                              (INFO-REF7019 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7005 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7007 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7009 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7012 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7013 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF7014 :DOUBLE) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7016 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF7018 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7019 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7004 SELECT)
                                            (T-REF7006 T)
                                            (Q-REF7008 Q)
                                            (WR-REF7010 WR)
                                            (WI-REF7011 WI)
                                            (WORK-REF7015 WORK)
                                            (IWORK-REF7017 IWORK))
      (%%DTRSEN JOB COMPQ SELECT-REF7004 N-REF7005 T-REF7006
       LDT-REF7007 Q-REF7008 LDQ-REF7009 WR-REF7010 WI-REF7011
       M-REF7012 S-REF7013 SEP-REF7014 WORK-REF7015 LWORK-REF7016
       IWORK-REF7017 LIWORK-REF7018 INFO-REF7019))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYCON_ROOK "csycon_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYCON_ROOK
    (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7021 ':INT32) (LDA-REF7023 ':INT32)
                              (ANORM-REF7025 ':FLOAT)
                              (RCOND-REF7026 ':FLOAT)
                              (INFO-REF7028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7023 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7025 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7026 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7028 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7022 A)
                                            (IPIV-REF7024 IPIV)
                                            (WORK-REF7027 WORK))
      (%%CSYCON_ROOK UPLO N-REF7021 A-REF7022 LDA-REF7023 IPIV-REF7024
       ANORM-REF7025 RCOND-REF7026 WORK-REF7027 INFO-REF7028))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBGV "chbgv_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBGV
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7031 ':INT32) (KA-REF7032 ':INT32)
                              (KB-REF7033 ':INT32)
                              (LDAB-REF7035 ':INT32)
                              (LDBB-REF7037 ':INT32)
                              (LDZ-REF7040 ':INT32)
                              (INFO-REF7043 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF7032 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF7033 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7035 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF7037 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7040 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7043 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7034 AB)
                                            (BB-REF7036 BB)
                                            (W-REF7038 W)
                                            (Z-REF7039 Z)
                                            (WORK-REF7041 WORK)
                                            (RWORK-REF7042 RWORK))
      (%%CHBGV JOBZ UPLO N-REF7031 KA-REF7032 KB-REF7033 AB-REF7034
       LDAB-REF7035 BB-REF7036 LDBB-REF7037 W-REF7038 Z-REF7039
       LDZ-REF7040 WORK-REF7041 RWORK-REF7042 INFO-REF7043))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGTTRF "dgttrf_")
  ((N :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7044 ':INT32)
                              (INFO-REF7050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7044 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7050 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7045 DL)
                                            (D-REF7046 D)
                                            (DU-REF7047 DU)
                                            (DU2-REF7048 DU2)
                                            (IPIV-REF7049 IPIV))
      (%%DGTTRF N-REF7044 DL-REF7045 D-REF7046 DU-REF7047 DU2-REF7048
       IPIV-REF7049 INFO-REF7050))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGTTS2 "cgtts2_")
  ((ITRANS :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF7051 ':INT32)
                              (N-REF7052 ':INT32)
                              (NRHS-REF7053 ':INT32)
                              (LDB-REF7060 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF7051 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7053 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7060 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7054 DL)
                                            (D-REF7055 D)
                                            (DU-REF7056 DU)
                                            (DU2-REF7057 DU2)
                                            (IPIV-REF7058 IPIV)
                                            (B-REF7059 B))
      (%%CGTTS2 ITRANS-REF7051 N-REF7052 NRHS-REF7053 DL-REF7054
       D-REF7055 DU-REF7056 DU2-REF7057 IPIV-REF7058 B-REF7059
       LDB-REF7060))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGSYL "ztgsyl_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (IJOB :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (LDD :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (LDE :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGSYL
    (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE DIF WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7062 ':INT32)
                              (M-REF7063 ':INT32) (N-REF7064 ':INT32)
                              (LDA-REF7066 ':INT32)
                              (LDB-REF7068 ':INT32)
                              (LDC-REF7070 ':INT32)
                              (LDD-REF7072 ':INT32)
                              (LDE-REF7074 ':INT32)
                              (LDF-REF7076 ':INT32)
                              (SCALE-REF7077 ':DOUBLE)
                              (DIF-REF7078 ':DOUBLE)
                              (LWORK-REF7080 ':INT32)
                              (INFO-REF7082 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7062 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7063 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7064 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7066 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7068 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7070 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF7072 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF7074 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF7076 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF7077 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF7078 :DOUBLE) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7080 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7082 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7065 A)
                                            (B-REF7067 B)
                                            (C-REF7069 C)
                                            (D-REF7071 D)
                                            (E-REF7073 E)
                                            (F-REF7075 F)
                                            (WORK-REF7079 WORK)
                                            (IWORK-REF7081 IWORK))
      (%%ZTGSYL TRANS IJOB-REF7062 M-REF7063 N-REF7064 A-REF7065
       LDA-REF7066 B-REF7067 LDB-REF7068 C-REF7069 LDC-REF7070
       D-REF7071 LDD-REF7072 E-REF7073 LDE-REF7074 F-REF7075
       LDF-REF7076 SCALE-REF7077 DIF-REF7078 WORK-REF7079 LWORK-REF7080
       IWORK-REF7081 INFO-REF7082))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBEV_2STAGE "ssbev_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBEV_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEV_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7085 ':INT32) (KD-REF7086 ':INT32)
                              (LDAB-REF7088 ':INT32)
                              (LDZ-REF7091 ':INT32)
                              (LWORK-REF7093 ':INT32)
                              (INFO-REF7094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF7086 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7088 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7091 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7093 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7087 AB)
                                            (W-REF7089 W)
                                            (Z-REF7090 Z)
                                            (WORK-REF7092 WORK))
      (%%SSBEV_2STAGE JOBZ UPLO N-REF7085 KD-REF7086 AB-REF7087
       LDAB-REF7088 W-REF7089 Z-REF7090 LDZ-REF7091 WORK-REF7092
       LWORK-REF7093 INFO-REF7094))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBSVX "dgbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBSVX
    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B LDB X
     LDX RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7097 ':INT32) (KL-REF7098 ':INT32)
                              (KU-REF7099 ':INT32)
                              (NRHS-REF7100 ':INT32)
                              (LDAB-REF7102 ':INT32)
                              (LDAFB-REF7104 ':INT32)
                              (LDB-REF7110 ':INT32)
                              (LDX-REF7112 ':INT32)
                              (RCOND-REF7113 ':DOUBLE)
                              (INFO-REF7118 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7097 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7098 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7099 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7100 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7102 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7104 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7110 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7112 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7113 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7118 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7101 AB)
                                            (AFB-REF7103 AFB)
                                            (IPIV-REF7105 IPIV)
                                            (R-REF7107 R)
                                            (C-REF7108 C)
                                            (B-REF7109 B)
                                            (X-REF7111 X)
                                            (FERR-REF7114 FERR)
                                            (BERR-REF7115 BERR)
                                            (WORK-REF7116 WORK)
                                            (IWORK-REF7117 IWORK))
      (%%DGBSVX FACT TRANS N-REF7097 KL-REF7098 KU-REF7099 NRHS-REF7100
       AB-REF7101 LDAB-REF7102 AFB-REF7103 LDAFB-REF7104 IPIV-REF7105
       EQUED R-REF7107 C-REF7108 B-REF7109 LDB-REF7110 X-REF7111
       LDX-REF7112 RCOND-REF7113 FERR-REF7114 BERR-REF7115 WORK-REF7116
       IWORK-REF7117 INFO-REF7118))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPTRI "zsptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7120 ':INT32)
                              (INFO-REF7124 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7120 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7124 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7121 AP)
                                            (IPIV-REF7122 IPIV)
                                            (WORK-REF7123 WORK))
      (%%ZSPTRI UPLO N-REF7120 AP-REF7121 IPIV-REF7122 WORK-REF7123
       INFO-REF7124))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEEV "dgeev_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEEV
    (JOBVL JOBVR N A LDA WR WI VL LDVL VR LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7127 ':INT32) (LDA-REF7129 ':INT32)
                              (LDVL-REF7133 ':INT32)
                              (LDVR-REF7135 ':INT32)
                              (LWORK-REF7137 ':INT32)
                              (INFO-REF7138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7127 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7129 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7133 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7135 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7137 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7138 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7128 A)
                                            (WR-REF7130 WR)
                                            (WI-REF7131 WI)
                                            (VL-REF7132 VL)
                                            (VR-REF7134 VR)
                                            (WORK-REF7136 WORK))
      (%%DGEEV JOBVL JOBVR N-REF7127 A-REF7128 LDA-REF7129 WR-REF7130
       WI-REF7131 VL-REF7132 LDVL-REF7133 VR-REF7134 LDVR-REF7135
       WORK-REF7136 LWORK-REF7137 INFO-REF7138))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRI2 "csytri2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7140 ':INT32) (LDA-REF7142 ':INT32)
                              (LWORK-REF7145 ':INT32)
                              (INFO-REF7146 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7142 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7145 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7146 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7141 A)
                                            (IPIV-REF7143 IPIV)
                                            (WORK-REF7144 WORK))
      (%%CSYTRI2 UPLO N-REF7140 A-REF7141 LDA-REF7142 IPIV-REF7143
       WORK-REF7144 LWORK-REF7145 INFO-REF7146))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARGV "clargv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7147 ':INT32)
                              (INCX-REF7149 ':INT32)
                              (INCY-REF7151 ':INT32)
                              (INCC-REF7153 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7149 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7151 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF7153 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7148 X)
                                            (Y-REF7150 Y)
                                            (C-REF7152 C))
      (%%CLARGV N-REF7147 X-REF7148 INCX-REF7149 Y-REF7150 INCY-REF7151
       C-REF7152 INCC-REF7153))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILADIAG "iladiag_")
  ((DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)) :RETURNING :INT
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILADIAG (DIAG)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILADIAG DIAG))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STREVC "strevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STREVC
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7158 ':INT32) (LDT-REF7160 ':INT32)
                              (LDVL-REF7162 ':INT32)
                              (LDVR-REF7164 ':INT32)
                              (MM-REF7165 ':INT32) (M-REF7166 ':INT32)
                              (INFO-REF7168 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7160 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7162 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7164 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF7165 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7166 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7168 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7157 SELECT)
                                            (T-REF7159 T)
                                            (VL-REF7161 VL)
                                            (VR-REF7163 VR)
                                            (WORK-REF7167 WORK))
      (%%STREVC SIDE HOWMNY SELECT-REF7157 N-REF7158 T-REF7159
       LDT-REF7160 VL-REF7161 LDVL-REF7162 VR-REF7163 LDVR-REF7164
       MM-REF7165 M-REF7166 WORK-REF7167 INFO-REF7168))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEBAK "sgebak_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBAK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7171 ':INT32) (ILO-REF7172 ':INT32)
                              (IHI-REF7173 ':INT32) (M-REF7175 ':INT32)
                              (LDV-REF7177 ':INT32)
                              (INFO-REF7178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7171 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7172 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7173 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7175 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7177 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF7174 SCALE)
                                            (V-REF7176 V))
      (%%SGEBAK JOB SIDE N-REF7171 ILO-REF7172 IHI-REF7173
       SCALE-REF7174 M-REF7175 V-REF7176 LDV-REF7177 INFO-REF7178))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHBGVX "zhbgvx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHBGVX
    (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU ABSTOL M
     W Z LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7182 ':INT32) (KA-REF7183 ':INT32)
                              (KB-REF7184 ':INT32)
                              (LDAB-REF7186 ':INT32)
                              (LDBB-REF7188 ':INT32)
                              (LDQ-REF7190 ':INT32)
                              (VL-REF7191 ':DOUBLE)
                              (VU-REF7192 ':DOUBLE)
                              (IL-REF7193 ':INT32) (IU-REF7194 ':INT32)
                              (ABSTOL-REF7195 ':DOUBLE)
                              (M-REF7196 ':INT32) (LDZ-REF7199 ':INT32)
                              (INFO-REF7204 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7182 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF7183 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF7184 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7186 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF7188 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7190 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF7191 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF7192 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF7193 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF7194 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7195 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7196 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7199 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7204 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7185 AB)
                                            (BB-REF7187 BB)
                                            (Q-REF7189 Q)
                                            (W-REF7197 W)
                                            (Z-REF7198 Z)
                                            (WORK-REF7200 WORK)
                                            (RWORK-REF7201 RWORK)
                                            (IWORK-REF7202 IWORK)
                                            (IFAIL-REF7203 IFAIL))
      (%%ZHBGVX JOBZ RANGE UPLO N-REF7182 KA-REF7183 KB-REF7184
       AB-REF7185 LDAB-REF7186 BB-REF7187 LDBB-REF7188 Q-REF7189
       LDQ-REF7190 VL-REF7191 VU-REF7192 IL-REF7193 IU-REF7194
       ABSTOL-REF7195 M-REF7196 W-REF7197 Z-REF7198 LDZ-REF7199
       WORK-REF7200 RWORK-REF7201 IWORK-REF7202 IFAIL-REF7203
       INFO-REF7204))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANHP "clanhp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANHP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7207 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7207 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7208 AP)
                                            (WORK-REF7209 WORK))
      (%%CLANHP NORM UPLO N-REF7207 AP-REF7208 WORK-REF7209))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILAENV "ilaenv_")
  ((ISPEC :FOREIGN-ADDRESS)
   (NAME (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (OPTS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS) (N3 :FOREIGN-ADDRESS)
   (N4 :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILAENV (ISPEC NAME OPTS N1 N2 N3 N4)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAENV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
   (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF7210 ':INT32)
                              (N1-REF7213 ':INT32) (N2-REF7214 ':INT32)
                              (N3-REF7215 ':INT32)
                              (N4-REF7216 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF7210 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7213 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7214 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF7215 :INT32) N3)
    (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF7216 :INT32) N4)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAENV ISPEC-REF7210 NAME OPTS N1-REF7213 N2-REF7214
       N3-REF7215 N4-REF7216))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQRT "zgeqrt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7217 ':INT32) (N-REF7218 ':INT32)
                              (NB-REF7219 ':INT32)
                              (LDA-REF7221 ':INT32)
                              (LDT-REF7223 ':INT32)
                              (INFO-REF7225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7217 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7218 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7219 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7223 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7220 A)
                                            (T-REF7222 T)
                                            (WORK-REF7224 WORK))
      (%%ZGEQRT M-REF7217 N-REF7218 NB-REF7219 A-REF7220 LDA-REF7221
       T-REF7222 LDT-REF7223 WORK-REF7224 INFO-REF7225))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAHQR "dlahqr_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (ILOZ :FOREIGN-ADDRESS)
   (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAHQR
    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7226 ':INT32)
                              (WANTZ-REF7227 ':INT32)
                              (N-REF7228 ':INT32) (ILO-REF7229 ':INT32)
                              (IHI-REF7230 ':INT32)
                              (LDH-REF7232 ':INT32)
                              (ILOZ-REF7235 ':INT32)
                              (IHIZ-REF7236 ':INT32)
                              (LDZ-REF7238 ':INT32)
                              (INFO-REF7239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7226 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7227 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7228 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7229 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7230 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7232 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7235 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7236 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7238 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7239 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7231 H)
                                            (WR-REF7233 WR)
                                            (WI-REF7234 WI)
                                            (Z-REF7237 Z))
      (%%DLAHQR WANTT-REF7226 WANTZ-REF7227 N-REF7228 ILO-REF7229
       IHI-REF7230 H-REF7231 LDH-REF7232 WR-REF7233 WI-REF7234
       ILOZ-REF7235 IHIZ-REF7236 Z-REF7237 LDZ-REF7238 INFO-REF7239))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELQT "cgelqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7240 ':INT32) (N-REF7241 ':INT32)
                              (MB-REF7242 ':INT32)
                              (LDA-REF7244 ':INT32)
                              (LDT-REF7246 ':INT32)
                              (INFO-REF7248 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7240 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7241 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7242 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7244 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7246 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7248 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7243 A)
                                            (T-REF7245 T)
                                            (WORK-REF7247 WORK))
      (%%CGELQT M-REF7240 N-REF7241 MB-REF7242 A-REF7243 LDA-REF7244
       T-REF7245 LDT-REF7246 WORK-REF7247 INFO-REF7248))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRSNA "strsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SEP :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRSNA
    (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK LDWORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7252 ':INT32) (LDT-REF7254 ':INT32)
                              (LDVL-REF7256 ':INT32)
                              (LDVR-REF7258 ':INT32)
                              (MM-REF7261 ':INT32) (M-REF7262 ':INT32)
                              (LDWORK-REF7264 ':INT32)
                              (INFO-REF7266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7252 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7254 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7256 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7258 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF7261 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7262 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF7264 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7266 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7251 SELECT)
                                            (T-REF7253 T)
                                            (VL-REF7255 VL)
                                            (VR-REF7257 VR)
                                            (S-REF7259 S)
                                            (SEP-REF7260 SEP)
                                            (WORK-REF7263 WORK)
                                            (IWORK-REF7265 IWORK))
      (%%STRSNA JOB HOWMNY SELECT-REF7251 N-REF7252 T-REF7253
       LDT-REF7254 VL-REF7255 LDVL-REF7256 VR-REF7257 LDVR-REF7258
       S-REF7259 SEP-REF7260 MM-REF7261 M-REF7262 WORK-REF7263
       LDWORK-REF7264 IWORK-REF7265 INFO-REF7266))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPFTRS "dpftrs_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7269 ':INT32)
                              (NRHS-REF7270 ':INT32)
                              (LDB-REF7273 ':INT32)
                              (INFO-REF7274 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7269 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7270 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7273 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7274 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7271 A)
                                            (B-REF7272 B))
      (%%DPFTRS TRANSR UPLO N-REF7269 NRHS-REF7270 A-REF7271 B-REF7272
       LDB-REF7273 INFO-REF7274))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPGVD "chpgvd_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPGVD
    (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGVD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF7275 ':INT32)
                              (N-REF7278 ':INT32) (LDZ-REF7283 ':INT32)
                              (LWORK-REF7285 ':INT32)
                              (LRWORK-REF7287 ':INT32)
                              (LIWORK-REF7289 ':INT32)
                              (INFO-REF7290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF7275 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7283 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7285 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF7287 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF7289 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7279 AP)
                                            (BP-REF7280 BP)
                                            (W-REF7281 W)
                                            (Z-REF7282 Z)
                                            (WORK-REF7284 WORK)
                                            (RWORK-REF7286 RWORK)
                                            (IWORK-REF7288 IWORK))
      (%%CHPGVD ITYPE-REF7275 JOBZ UPLO N-REF7278 AP-REF7279 BP-REF7280
       W-REF7281 Z-REF7282 LDZ-REF7283 WORK-REF7284 LWORK-REF7285
       RWORK-REF7286 LRWORK-REF7287 IWORK-REF7288 LIWORK-REF7289
       INFO-REF7290))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGELQ2 "dgelq2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7291 ':INT32) (N-REF7292 ':INT32)
                              (LDA-REF7294 ':INT32)
                              (INFO-REF7297 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7291 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7292 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7294 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7297 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7293 A)
                                            (TAU-REF7295 TAU)
                                            (WORK-REF7296 WORK))
      (%%DGELQ2 M-REF7291 N-REF7292 A-REF7293 LDA-REF7294 TAU-REF7295
       WORK-REF7296 INFO-REF7297))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPGVX "zhpgvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPGVX
    (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ WORK
     RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF7298 ':INT32)
                              (N-REF7302 ':INT32) (VL-REF7305 ':DOUBLE)
                              (VU-REF7306 ':DOUBLE)
                              (IL-REF7307 ':INT32) (IU-REF7308 ':INT32)
                              (ABSTOL-REF7309 ':DOUBLE)
                              (M-REF7310 ':INT32) (LDZ-REF7313 ':INT32)
                              (INFO-REF7318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF7298 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF7305 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF7306 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF7307 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF7308 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7309 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7310 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7313 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7318 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7303 AP)
                                            (BP-REF7304 BP)
                                            (W-REF7311 W)
                                            (Z-REF7312 Z)
                                            (WORK-REF7314 WORK)
                                            (RWORK-REF7315 RWORK)
                                            (IWORK-REF7316 IWORK)
                                            (IFAIL-REF7317 IFAIL))
      (%%ZHPGVX ITYPE-REF7298 JOBZ RANGE UPLO N-REF7302 AP-REF7303
       BP-REF7304 VL-REF7305 VU-REF7306 IL-REF7307 IU-REF7308
       ABSTOL-REF7309 M-REF7310 W-REF7311 Z-REF7312 LDZ-REF7313
       WORK-REF7314 RWORK-REF7315 IWORK-REF7316 IFAIL-REF7317
       INFO-REF7318))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPSV "dspsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7320 ':INT32)
                              (NRHS-REF7321 ':INT32)
                              (LDB-REF7325 ':INT32)
                              (INFO-REF7326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7320 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7321 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7325 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7326 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7322 AP)
                                            (IPIV-REF7323 IPIV)
                                            (B-REF7324 B))
      (%%DSPSV UPLO N-REF7320 NRHS-REF7321 AP-REF7322 IPIV-REF7323
       B-REF7324 LDB-REF7325 INFO-REF7326))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPTTRF "cpttrf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7327 ':INT32)
                              (INFO-REF7330 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7327 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7330 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7328 D)
                                            (E-REF7329 E))
      (%%CPTTRF N-REF7327 D-REF7328 E-REF7329 INFO-REF7330))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD0 "slasd0_")
  ((N :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (SMLSIZ :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD0
    (N SQRE D E U LDU VT LDVT SMLSIZ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7331 ':INT32)
                              (SQRE-REF7332 ':INT32)
                              (LDU-REF7336 ':INT32)
                              (LDVT-REF7338 ':INT32)
                              (SMLSIZ-REF7339 ':INT32)
                              (INFO-REF7342 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7331 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF7332 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7336 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF7338 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7339 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7342 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7333 D)
                                            (E-REF7334 E)
                                            (U-REF7335 U)
                                            (VT-REF7337 VT)
                                            (IWORK-REF7340 IWORK)
                                            (WORK-REF7341 WORK))
      (%%SLASD0 N-REF7331 SQRE-REF7332 D-REF7333 E-REF7334 U-REF7335
       LDU-REF7336 VT-REF7337 LDVT-REF7338 SMLSIZ-REF7339 IWORK-REF7340
       WORK-REF7341 INFO-REF7342))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHESVXX "chesvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHESVXX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7345 ':INT32)
                              (NRHS-REF7346 ':INT32)
                              (LDA-REF7348 ':INT32)
                              (LDAF-REF7350 ':INT32)
                              (LDB-REF7355 ':INT32)
                              (LDX-REF7357 ':INT32)
                              (RCOND-REF7358 ':FLOAT)
                              (RPVGRW-REF7359 ':FLOAT)
                              (N_ERR_BNDS-REF7361 ':INT32)
                              (NPARAMS-REF7364 ':INT32)
                              (INFO-REF7368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7346 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7348 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7350 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7355 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7357 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7358 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF7359 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF7361 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF7364 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7368 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7347 A)
                                            (AF-REF7349 AF)
                                            (IPIV-REF7351 IPIV)
                                            (S-REF7353 S)
                                            (B-REF7354 B)
                                            (X-REF7356 X)
                                            (BERR-REF7360 BERR)
                                            (ERR_BNDS_NORM-REF7362
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7363
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF7365 PARAMS)
                                            (WORK-REF7366 WORK)
                                            (RWORK-REF7367 RWORK))
      (%%CHESVXX FACT UPLO N-REF7345 NRHS-REF7346 A-REF7347 LDA-REF7348
       AF-REF7349 LDAF-REF7350 IPIV-REF7351 EQUED S-REF7353 B-REF7354
       LDB-REF7355 X-REF7356 LDX-REF7357 RCOND-REF7358 RPVGRW-REF7359
       BERR-REF7360 N_ERR_BNDS-REF7361 ERR_BNDS_NORM-REF7362
       ERR_BNDS_COMP-REF7363 NPARAMS-REF7364 PARAMS-REF7365
       WORK-REF7366 RWORK-REF7367 INFO-REF7368))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRD_2STAGE "dsytrd_2stage_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (HOUS2 :FOREIGN-ADDRESS)
   (LHOUS2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRD_2STAGE
    (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) HOUS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7371 ':INT32) (LDA-REF7373 ':INT32)
                              (LHOUS2-REF7378 ':INT32)
                              (LWORK-REF7380 ':INT32)
                              (INFO-REF7381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7373 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF7378 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7380 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7381 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7372 A)
                                            (D-REF7374 D)
                                            (E-REF7375 E)
                                            (TAU-REF7376 TAU)
                                            (HOUS2-REF7377 HOUS2)
                                            (WORK-REF7379 WORK))
      (%%DSYTRD_2STAGE VECT UPLO N-REF7371 A-REF7372 LDA-REF7373
       D-REF7374 E-REF7375 TAU-REF7376 HOUS2-REF7377 LHOUS2-REF7378
       WORK-REF7379 LWORK-REF7380 INFO-REF7381))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEGS2 "zhegs2_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF7382 ':INT32)
                              (N-REF7384 ':INT32) (LDA-REF7386 ':INT32)
                              (LDB-REF7388 ':INT32)
                              (INFO-REF7389 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF7382 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7384 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7386 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7388 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7389 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7385 A)
                                            (B-REF7387 B))
      (%%ZHEGS2 ITYPE-REF7382 UPLO N-REF7384 A-REF7385 LDA-REF7386
       B-REF7387 LDB-REF7388 INFO-REF7389))))

(COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%DPTEQR %DPTEQR %%ZLAPLL
                      %ZLAPLL %%CLARFY %CLARFY %%CHBGVX %CHBGVX
                      %%ZLATSQR %ZLATSQR %%ZHEEVX %ZHEEVX %%SGEQR
                      %SGEQR %%CLAUUM %CLAUUM %%CLACPY %CLACPY %%DORM2R
                      %DORM2R %%SLASQ3 %SLASQ3 %%SORGBR %SORGBR
                      %%CTGSEN %CTGSEN %%ZHSEQR %ZHSEQR %%CPBSVX
                      %CPBSVX %%ZGGESX %ZGGESX %%DGGSVD3 %DGGSVD3
                      %%SLA_SYRPVGRW %SLA_SYRPVGRW %%SGGGLM %SGGGLM
                      %%DLAED7 %DLAED7 %%SORBDB5 %SORBDB5 %%SLAPY3
                      %SLAPY3 %%SSYGV_2STAGE %SSYGV_2STAGE %%SGEEVX
                      %SGEEVX %%SSBEVD %SSBEVD %%DLAMRG %DLAMRG
                      %%CLANHF %CLANHF %%CHPCON %CHPCON %%ZUNGQR
                      %ZUNGQR %%DPBSV %DPBSV %%SGESVX %SGESVX %%ZGTCON
                      %ZGTCON %%SLASV2 %SLASV2 %%DLA_SYRFSX_EXTENDED
                      %DLA_SYRFSX_EXTENDED %%CPPCON %CPPCON %%ZTPQRT
                      %ZTPQRT %%ZGEEQU %ZGEEQU %%SLAED1 %SLAED1
                      %%SGSVJ0 %SGSVJ0 %%CHEEVD_2STAGE %CHEEVD_2STAGE
                      %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED
                      %%SPOTF2 %SPOTF2 %%DPOCON %DPOCON %%ZHEGVD
                      %ZHEGVD %%ZGETRI %ZGETRI %%ZSYSVX %ZSYSVX
                      %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
                      %%SGTCON %SGTCON %%ZLA_GEAMV %ZLA_GEAMV
                      %%CHEEVR_2STAGE %CHEEVR_2STAGE %%DLAG2S %DLAG2S
                      %%ZPPTRI %ZPPTRI %%SLACON %SLACON %%CTPLQT
                      %CTPLQT %%ZHECON_ROOK %ZHECON_ROOK %%CROT %CROT
                      %%ZTRSYL %ZTRSYL %%CLARSCL2 %CLARSCL2 %%CLASR
                      %CLASR %%SSYTRD_2STAGE %SSYTRD_2STAGE
                      %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SLARRV %SLARRV
                      %%DORBDB3 %DORBDB3 %%DPPCON %DPPCON %%CHECON_3
                      %CHECON_3 %%SLAHQR %SLAHQR %%DPOSVXX %DPOSVXX
                      %%ZHESV_RK %ZHESV_RK %%CGEQR %CGEQR %%CLACGV
                      %CLACGV %%SORML2 %SORML2 %%CLAQR0 %CLAQR0
                      %%SLAED2 %SLAED2 %%ZLATBS %ZLATBS %%DGETRF
                      %DGETRF %%CSYTRS2 %CSYTRS2 %%ZLANTP %ZLANTP
                      %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED
                      %%DGGLSE %DGGLSE %%ZLANHT %ZLANHT %%DORMR3
                      %DORMR3 %%ZUNGHR %ZUNGHR %%DLANSF %DLANSF
                      %%ZGELQT3 %ZGELQT3 %%CHFRK %CHFRK %%DSBEVD_2STAGE
                      %DSBEVD_2STAGE %%CUNG2R %CUNG2R %%CLARZT %CLARZT
                      %%CTGEX2 %CTGEX2 %%SLATPS %SLATPS %%CHETRI_3X
                      %CHETRI_3X %%ZLACGV %ZLACGV %%ZBDSQR %ZBDSQR
                      %%CLARFX %CLARFX %%SORMRZ %SORMRZ
                      %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE %%ZHPCON
                      %ZHPCON %%SGERFS %SGERFS %%DLARTGP %DLARTGP
                      %%SSTEQR %SSTEQR %%DGELSY %DGELSY %%ZSYTRI_3X
                      %ZSYTRI_3X %%ZGGHRD %ZGGHRD %%SSYTRF %SSYTRF
                      %%ZLAQP2 %ZLAQP2 %%CUNBDB1 %CUNBDB1 %%SGTSVX
                      %SGTSVX %%SLAR2V %SLAR2V %%DSTEVD %DSTEVD
                      %%ZLA_HERPVGRW %ZLA_HERPVGRW %%CLARFT %CLARFT
                      %%ZGETSLS %ZGETSLS %%ZHPTRS %ZHPTRS %%SLATRS
                      %SLATRS %%DSYTRI_ROOK %DSYTRI_ROOK %%DLARRF
                      %DLARRF %%ZHEEVR %ZHEEVR %%ZLACP2 %ZLACP2
                      %%DLANTB %DLANTB %%CLA_HEAMV %CLA_HEAMV
                      %%SLAMTSQR %SLAMTSQR %%CTPRFS %CTPRFS %%DGBSVXX
                      %DGBSVXX %%ZTPTRI %ZTPTRI %%DTGSNA %DTGSNA
                      %%DSPEV %DSPEV %%CGEBRD %CGEBRD %%ZPOEQUB
                      %ZPOEQUB %%DLARTGS %DLARTGS %%ZHETRS_AA_2STAGE
                      %ZHETRS_AA_2STAGE %%DTRCON %DTRCON %%CUNMR3
                      %CUNMR3 %%DGBTRF %DGBTRF %%SLA_SYAMV %SLA_SYAMV
                      %%SPBTRF %SPBTRF %%CGBEQU %CGBEQU %%ZHECON_3
                      %ZHECON_3 %%SGELS %SGELS %%DSYEVX %DSYEVX
                      %%SSYTRS2 %SSYTRS2 %%DBDSDC %DBDSDC %%SGGHRD
                      %SGGHRD %%DSPGV %DSPGV %%SGEMQRT %SGEMQRT %%CSYR
                      %CSYR %%STGEXC %STGEXC %%CPOTRF2 %CPOTRF2
                      %%SGESVDQ %SGESVDQ %%DSPTRD %DSPTRD %%CSYTRF_ROOK
                      %CSYTRF_ROOK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZGGQRF
                      %ZGGQRF %%DLAT2S %DLAT2S %%DGESVXX %DGESVXX
                      %%ZSYTRF_AA %ZSYTRF_AA %%CLA_HERFSX_EXTENDED
                      %CLA_HERFSX_EXTENDED %%ZLARFX %ZLARFX %%SGEMLQ
                      %SGEMLQ %%DGGHD3 %DGGHD3 %%CHBEVD_2STAGE
                      %CHBEVD_2STAGE %%DPTTRS %DPTTRS %%DLAG2 %DLAG2
                      %%CGESVXX %CGESVXX %%ZLACRM %ZLACRM %%ZTBCON
                      %ZTBCON %%DLASD7 %DLASD7 %%ZUNGTR %ZUNGTR
                      %%CGEESX %CGEESX %%CHEGST %CHEGST %%CLARNV
                      %CLARNV %%DLAHR2 %DLAHR2 %%ZLA_HEAMV %ZLA_HEAMV
                      %%SGBCON %SGBCON %%ILADLC %ILADLC %%SLASD6
                      %SLASD6 %%SLAED4 %SLAED4 %%SLA_GERFSX_EXTENDED
                      %SLA_GERFSX_EXTENDED %%SLARRR %SLARRR %%CTRCON
                      %CTRCON %%ZGTSV %ZGTSV %%SSYGVD %SSYGVD %%DSPEVD
                      %DSPEVD %%CTFTRI %CTFTRI %%DSBEV %DSBEV %%CGESVDX
                      %CGESVDX %%SGEES %SGEES %%DGTRFS %DGTRFS
                      %%SSYTRF_AA %SSYTRF_AA %%ZLA_GBRCOND_C
                      %ZLA_GBRCOND_C %%ZLANGT %ZLANGT %%ZHETD2 %ZHETD2
                      %%CSYMV %CSYMV %%DLARFY %DLARFY %%ZLACPY %ZLACPY
                      %%SSTEVR %SSTEVR %%CLANHT %CLANHT %%ZHETRS_ROOK
                      %ZHETRS_ROOK %%ZGELSY %ZGELSY %%DTPRFS %DTPRFS
                      %%ZSYTRI %ZSYTRI %%SLASD4 %SLASD4 %%CLA_GERPVGRW
                      %CLA_GERPVGRW %%SPOTRF %SPOTRF %%CLALSA %CLALSA
                      %%CGEBAK %CGEBAK %%DSYTF2 %DSYTF2 %%CSYTRF
                      %CSYTRF %%CUNBDB %CUNBDB %%DLARRK %DLARRK
                      %%ZLASCL2 %ZLASCL2 %%DSYCON %DSYCON %%DGEQL2
                      %DGEQL2 %%DSYEQUB %DSYEQUB %%DSYEV %DSYEV
                      %%CLASYF %CLASYF %%CPTCON %CPTCON %%DTRSEN
                      %DTRSEN %%CSYCON_ROOK %CSYCON_ROOK %%CHBGV %CHBGV
                      %%DGTTRF %DGTTRF %%CGTTS2 %CGTTS2 %%ZTGSYL
                      %ZTGSYL %%SSBEV_2STAGE %SSBEV_2STAGE %%DGBSVX
                      %DGBSVX %%ZSPTRI %ZSPTRI %%DGEEV %DGEEV %%CSYTRI2
                      %CSYTRI2 %%CLARGV %CLARGV %%ILADIAG %ILADIAG
                      %%STREVC %STREVC %%SGEBAK %SGEBAK %%ZHBGVX
                      %ZHBGVX %%CLANHP %CLANHP %%ILAENV %ILAENV
                      %%ZGEQRT %ZGEQRT %%DLAHQR %DLAHQR %%CGELQT
                      %CGELQT %%STRSNA %STRSNA %%DPFTRS %DPFTRS
                      %%CHPGVD %CHPGVD %%DGELQ2 %DGELQ2 %%ZHPGVX
                      %ZHPGVX %%DSPSV %DSPSV %%CPTTRF %CPTTRF %%SLASD0
                      %SLASD0 %%CHESVXX %CHESVXX %%DSYTRD_2STAGE
                      %DSYTRD_2STAGE %%ZHEGS2 %ZHEGS2))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS
  'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
  '(("DPTEQR" "dpteqr_" %%DPTEQR %DPTEQR)
    ("ZLAPLL" "zlapll_" %%ZLAPLL %ZLAPLL)
    ("CLARFY" "clarfy_" %%CLARFY %CLARFY)
    ("CHBGVX" "chbgvx_" %%CHBGVX %CHBGVX)
    ("ZLATSQR" "zlatsqr_" %%ZLATSQR %ZLATSQR)
    ("ZHEEVX" "zheevx_" %%ZHEEVX %ZHEEVX)
    ("SGEQR" "sgeqr_" %%SGEQR %SGEQR)
    ("CLAUUM" "clauum_" %%CLAUUM %CLAUUM)
    ("CLACPY" "clacpy_" %%CLACPY %CLACPY)
    ("DORM2R" "dorm2r_" %%DORM2R %DORM2R)
    ("SLASQ3" "slasq3_" %%SLASQ3 %SLASQ3)
    ("SORGBR" "sorgbr_" %%SORGBR %SORGBR)
    ("CTGSEN" "ctgsen_" %%CTGSEN %CTGSEN)
    ("ZHSEQR" "zhseqr_" %%ZHSEQR %ZHSEQR)
    ("CPBSVX" "cpbsvx_" %%CPBSVX %CPBSVX)
    ("ZGGESX" "zggesx_" %%ZGGESX %ZGGESX)
    ("DGGSVD3" "dggsvd3_" %%DGGSVD3 %DGGSVD3)
    ("SLA_SYRPVGRW" "sla_syrpvgrw_" %%SLA_SYRPVGRW %SLA_SYRPVGRW)
    ("SGGGLM" "sggglm_" %%SGGGLM %SGGGLM)
    ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7)
    ("SORBDB5" "sorbdb5_" %%SORBDB5 %SORBDB5)
    ("SLAPY3" "slapy3_" %%SLAPY3 %SLAPY3)
    ("SSYGV_2STAGE" "ssygv_2stage_" %%SSYGV_2STAGE %SSYGV_2STAGE)
    ("SGEEVX" "sgeevx_" %%SGEEVX %SGEEVX)
    ("SSBEVD" "ssbevd_" %%SSBEVD %SSBEVD)
    ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG)
    ("CLANHF" "clanhf_" %%CLANHF %CLANHF)
    ("CHPCON" "chpcon_" %%CHPCON %CHPCON)
    ("ZUNGQR" "zungqr_" %%ZUNGQR %ZUNGQR)
    ("DPBSV" "dpbsv_" %%DPBSV %DPBSV)
    ("SGESVX" "sgesvx_" %%SGESVX %SGESVX)
    ("ZGTCON" "zgtcon_" %%ZGTCON %ZGTCON)
    ("SLASV2" "slasv2_" %%SLASV2 %SLASV2)
    ("DLA_SYRFSX_EXTENDED" "dla_syrfsx_extended_" %%DLA_SYRFSX_EXTENDED
     %DLA_SYRFSX_EXTENDED)
    ("CPPCON" "cppcon_" %%CPPCON %CPPCON)
    ("ZTPQRT" "ztpqrt_" %%ZTPQRT %ZTPQRT)
    ("ZGEEQU" "zgeequ_" %%ZGEEQU %ZGEEQU)
    ("SLAED1" "slaed1_" %%SLAED1 %SLAED1)
    ("SGSVJ0" "sgsvj0_" %%SGSVJ0 %SGSVJ0)
    ("CHEEVD_2STAGE" "cheevd_2stage_" %%CHEEVD_2STAGE %CHEEVD_2STAGE)
    ("CLA_SYRFSX_EXTENDED" "cla_syrfsx_extended_" %%CLA_SYRFSX_EXTENDED
     %CLA_SYRFSX_EXTENDED)
    ("SPOTF2" "spotf2_" %%SPOTF2 %SPOTF2)
    ("DPOCON" "dpocon_" %%DPOCON %DPOCON)
    ("ZHEGVD" "zhegvd_" %%ZHEGVD %ZHEGVD)
    ("ZGETRI" "zgetri_" %%ZGETRI %ZGETRI)
    ("ZSYSVX" "zsysvx_" %%ZSYSVX %ZSYSVX)
    ("DLA_GERFSX_EXTENDED" "dla_gerfsx_extended_" %%DLA_GERFSX_EXTENDED
     %DLA_GERFSX_EXTENDED)
    ("SGTCON" "sgtcon_" %%SGTCON %SGTCON)
    ("ZLA_GEAMV" "zla_geamv_" %%ZLA_GEAMV %ZLA_GEAMV)
    ("CHEEVR_2STAGE" "cheevr_2stage_" %%CHEEVR_2STAGE %CHEEVR_2STAGE)
    ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S)
    ("ZPPTRI" "zpptri_" %%ZPPTRI %ZPPTRI)
    ("SLACON" "slacon_" %%SLACON %SLACON)
    ("CTPLQT" "ctplqt_" %%CTPLQT %CTPLQT)
    ("ZHECON_ROOK" "zhecon_rook_" %%ZHECON_ROOK %ZHECON_ROOK)
    ("CROT" "crot_" %%CROT %CROT) ("ZTRSYL" "ztrsyl_" %%ZTRSYL %ZTRSYL)
    ("CLARSCL2" "clarscl2_" %%CLARSCL2 %CLARSCL2)
    ("CLASR" "clasr_" %%CLASR %CLASR)
    ("SSYTRD_2STAGE" "ssytrd_2stage_" %%SSYTRD_2STAGE %SSYTRD_2STAGE)
    ("SSBEVX_2STAGE" "ssbevx_2stage_" %%SSBEVX_2STAGE %SSBEVX_2STAGE)
    ("SLARRV" "slarrv_" %%SLARRV %SLARRV)
    ("DORBDB3" "dorbdb3_" %%DORBDB3 %DORBDB3)
    ("DPPCON" "dppcon_" %%DPPCON %DPPCON)
    ("CHECON_3" "checon_3_" %%CHECON_3 %CHECON_3)
    ("SLAHQR" "slahqr_" %%SLAHQR %SLAHQR)
    ("DPOSVXX" "dposvxx_" %%DPOSVXX %DPOSVXX)
    ("ZHESV_RK" "zhesv_rk_" %%ZHESV_RK %ZHESV_RK)
    ("CGEQR" "cgeqr_" %%CGEQR %CGEQR)
    ("CLACGV" "clacgv_" %%CLACGV %CLACGV)
    ("SORML2" "sorml2_" %%SORML2 %SORML2)
    ("CLAQR0" "claqr0_" %%CLAQR0 %CLAQR0)
    ("SLAED2" "slaed2_" %%SLAED2 %SLAED2)
    ("ZLATBS" "zlatbs_" %%ZLATBS %ZLATBS)
    ("DGETRF" "dgetrf_" %%DGETRF %DGETRF)
    ("CSYTRS2" "csytrs2_" %%CSYTRS2 %CSYTRS2)
    ("ZLANTP" "zlantp_" %%ZLANTP %ZLANTP)
    ("ZLA_HERFSX_EXTENDED" "zla_herfsx_extended_" %%ZLA_HERFSX_EXTENDED
     %ZLA_HERFSX_EXTENDED)
    ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE)
    ("ZLANHT" "zlanht_" %%ZLANHT %ZLANHT)
    ("DORMR3" "dormr3_" %%DORMR3 %DORMR3)
    ("ZUNGHR" "zunghr_" %%ZUNGHR %ZUNGHR)
    ("DLANSF" "dlansf_" %%DLANSF %DLANSF)
    ("ZGELQT3" "zgelqt3_" %%ZGELQT3 %ZGELQT3)
    ("CHFRK" "chfrk_" %%CHFRK %CHFRK)
    ("DSBEVD_2STAGE" "dsbevd_2stage_" %%DSBEVD_2STAGE %DSBEVD_2STAGE)
    ("CUNG2R" "cung2r_" %%CUNG2R %CUNG2R)
    ("CLARZT" "clarzt_" %%CLARZT %CLARZT)
    ("CTGEX2" "ctgex2_" %%CTGEX2 %CTGEX2)
    ("SLATPS" "slatps_" %%SLATPS %SLATPS)
    ("CHETRI_3X" "chetri_3x_" %%CHETRI_3X %CHETRI_3X)
    ("ZLACGV" "zlacgv_" %%ZLACGV %ZLACGV)
    ("ZBDSQR" "zbdsqr_" %%ZBDSQR %ZBDSQR)
    ("CLARFX" "clarfx_" %%CLARFX %CLARFX)
    ("SORMRZ" "sormrz_" %%SORMRZ %SORMRZ)
    ("DSYTRF_AA_2STAGE" "dsytrf_aa_2stage_" %%DSYTRF_AA_2STAGE
     %DSYTRF_AA_2STAGE)
    ("ZHPCON" "zhpcon_" %%ZHPCON %ZHPCON)
    ("SGERFS" "sgerfs_" %%SGERFS %SGERFS)
    ("DLARTGP" "dlartgp_" %%DLARTGP %DLARTGP)
    ("SSTEQR" "ssteqr_" %%SSTEQR %SSTEQR)
    ("DGELSY" "dgelsy_" %%DGELSY %DGELSY)
    ("ZSYTRI_3X" "zsytri_3x_" %%ZSYTRI_3X %ZSYTRI_3X)
    ("ZGGHRD" "zgghrd_" %%ZGGHRD %ZGGHRD)
    ("SSYTRF" "ssytrf_" %%SSYTRF %SSYTRF)
    ("ZLAQP2" "zlaqp2_" %%ZLAQP2 %ZLAQP2)
    ("CUNBDB1" "cunbdb1_" %%CUNBDB1 %CUNBDB1)
    ("SGTSVX" "sgtsvx_" %%SGTSVX %SGTSVX)
    ("SLAR2V" "slar2v_" %%SLAR2V %SLAR2V)
    ("DSTEVD" "dstevd_" %%DSTEVD %DSTEVD)
    ("ZLA_HERPVGRW" "zla_herpvgrw_" %%ZLA_HERPVGRW %ZLA_HERPVGRW)
    ("CLARFT" "clarft_" %%CLARFT %CLARFT)
    ("ZGETSLS" "zgetsls_" %%ZGETSLS %ZGETSLS)
    ("ZHPTRS" "zhptrs_" %%ZHPTRS %ZHPTRS)
    ("SLATRS" "slatrs_" %%SLATRS %SLATRS)
    ("DSYTRI_ROOK" "dsytri_rook_" %%DSYTRI_ROOK %DSYTRI_ROOK)
    ("DLARRF" "dlarrf_" %%DLARRF %DLARRF)
    ("ZHEEVR" "zheevr_" %%ZHEEVR %ZHEEVR)
    ("ZLACP2" "zlacp2_" %%ZLACP2 %ZLACP2)
    ("DLANTB" "dlantb_" %%DLANTB %DLANTB)
    ("CLA_HEAMV" "cla_heamv_" %%CLA_HEAMV %CLA_HEAMV)
    ("SLAMTSQR" "slamtsqr_" %%SLAMTSQR %SLAMTSQR)
    ("CTPRFS" "ctprfs_" %%CTPRFS %CTPRFS)
    ("DGBSVXX" "dgbsvxx_" %%DGBSVXX %DGBSVXX)
    ("ZTPTRI" "ztptri_" %%ZTPTRI %ZTPTRI)
    ("DTGSNA" "dtgsna_" %%DTGSNA %DTGSNA)
    ("DSPEV" "dspev_" %%DSPEV %DSPEV)
    ("CGEBRD" "cgebrd_" %%CGEBRD %CGEBRD)
    ("ZPOEQUB" "zpoequb_" %%ZPOEQUB %ZPOEQUB)
    ("DLARTGS" "dlartgs_" %%DLARTGS %DLARTGS)
    ("ZHETRS_AA_2STAGE" "zhetrs_aa_2stage_" %%ZHETRS_AA_2STAGE
     %ZHETRS_AA_2STAGE)
    ("DTRCON" "dtrcon_" %%DTRCON %DTRCON)
    ("CUNMR3" "cunmr3_" %%CUNMR3 %CUNMR3)
    ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF)
    ("SLA_SYAMV" "sla_syamv_" %%SLA_SYAMV %SLA_SYAMV)
    ("SPBTRF" "spbtrf_" %%SPBTRF %SPBTRF)
    ("CGBEQU" "cgbequ_" %%CGBEQU %CGBEQU)
    ("ZHECON_3" "zhecon_3_" %%ZHECON_3 %ZHECON_3)
    ("SGELS" "sgels_" %%SGELS %SGELS)
    ("DSYEVX" "dsyevx_" %%DSYEVX %DSYEVX)
    ("SSYTRS2" "ssytrs2_" %%SSYTRS2 %SSYTRS2)
    ("DBDSDC" "dbdsdc_" %%DBDSDC %DBDSDC)
    ("SGGHRD" "sgghrd_" %%SGGHRD %SGGHRD)
    ("DSPGV" "dspgv_" %%DSPGV %DSPGV)
    ("SGEMQRT" "sgemqrt_" %%SGEMQRT %SGEMQRT)
    ("CSYR" "csyr_" %%CSYR %CSYR) ("STGEXC" "stgexc_" %%STGEXC %STGEXC)
    ("CPOTRF2" "cpotrf2_" %%CPOTRF2 %CPOTRF2)
    ("SGESVDQ" "sgesvdq_" %%SGESVDQ %SGESVDQ)
    ("DSPTRD" "dsptrd_" %%DSPTRD %DSPTRD)
    ("CSYTRF_ROOK" "csytrf_rook_" %%CSYTRF_ROOK %CSYTRF_ROOK)
    ("ZLAHEF_ROOK" "zlahef_rook_" %%ZLAHEF_ROOK %ZLAHEF_ROOK)
    ("ZGGQRF" "zggqrf_" %%ZGGQRF %ZGGQRF)
    ("DLAT2S" "dlat2s_" %%DLAT2S %DLAT2S)
    ("DGESVXX" "dgesvxx_" %%DGESVXX %DGESVXX)
    ("ZSYTRF_AA" "zsytrf_aa_" %%ZSYTRF_AA %ZSYTRF_AA)
    ("CLA_HERFSX_EXTENDED" "cla_herfsx_extended_" %%CLA_HERFSX_EXTENDED
     %CLA_HERFSX_EXTENDED)
    ("ZLARFX" "zlarfx_" %%ZLARFX %ZLARFX)
    ("SGEMLQ" "sgemlq_" %%SGEMLQ %SGEMLQ)
    ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3)
    ("CHBEVD_2STAGE" "chbevd_2stage_" %%CHBEVD_2STAGE %CHBEVD_2STAGE)
    ("DPTTRS" "dpttrs_" %%DPTTRS %DPTTRS)
    ("DLAG2" "dlag2_" %%DLAG2 %DLAG2)
    ("CGESVXX" "cgesvxx_" %%CGESVXX %CGESVXX)
    ("ZLACRM" "zlacrm_" %%ZLACRM %ZLACRM)
    ("ZTBCON" "ztbcon_" %%ZTBCON %ZTBCON)
    ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7)
    ("ZUNGTR" "zungtr_" %%ZUNGTR %ZUNGTR)
    ("CGEESX" "cgeesx_" %%CGEESX %CGEESX)
    ("CHEGST" "chegst_" %%CHEGST %CHEGST)
    ("CLARNV" "clarnv_" %%CLARNV %CLARNV)
    ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2)
    ("ZLA_HEAMV" "zla_heamv_" %%ZLA_HEAMV %ZLA_HEAMV)
    ("SGBCON" "sgbcon_" %%SGBCON %SGBCON)
    ("ILADLC" "iladlc_" %%ILADLC %ILADLC)
    ("SLASD6" "slasd6_" %%SLASD6 %SLASD6)
    ("SLAED4" "slaed4_" %%SLAED4 %SLAED4)
    ("SLA_GERFSX_EXTENDED" "sla_gerfsx_extended_" %%SLA_GERFSX_EXTENDED
     %SLA_GERFSX_EXTENDED)
    ("SLARRR" "slarrr_" %%SLARRR %SLARRR)
    ("CTRCON" "ctrcon_" %%CTRCON %CTRCON)
    ("ZGTSV" "zgtsv_" %%ZGTSV %ZGTSV)
    ("SSYGVD" "ssygvd_" %%SSYGVD %SSYGVD)
    ("DSPEVD" "dspevd_" %%DSPEVD %DSPEVD)
    ("CTFTRI" "ctftri_" %%CTFTRI %CTFTRI)
    ("DSBEV" "dsbev_" %%DSBEV %DSBEV)
    ("CGESVDX" "cgesvdx_" %%CGESVDX %CGESVDX)
    ("SGEES" "sgees_" %%SGEES %SGEES)
    ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS)
    ("SSYTRF_AA" "ssytrf_aa_" %%SSYTRF_AA %SSYTRF_AA)
    ("ZLA_GBRCOND_C" "zla_gbrcond_c_" %%ZLA_GBRCOND_C %ZLA_GBRCOND_C)
    ("ZLANGT" "zlangt_" %%ZLANGT %ZLANGT)
    ("ZHETD2" "zhetd2_" %%ZHETD2 %ZHETD2)
    ("CSYMV" "csymv_" %%CSYMV %CSYMV)
    ("DLARFY" "dlarfy_" %%DLARFY %DLARFY)
    ("ZLACPY" "zlacpy_" %%ZLACPY %ZLACPY)
    ("SSTEVR" "sstevr_" %%SSTEVR %SSTEVR)
    ("CLANHT" "clanht_" %%CLANHT %CLANHT)
    ("ZHETRS_ROOK" "zhetrs_rook_" %%ZHETRS_ROOK %ZHETRS_ROOK)
    ("ZGELSY" "zgelsy_" %%ZGELSY %ZGELSY)
    ("DTPRFS" "dtprfs_" %%DTPRFS %DTPRFS)
    ("ZSYTRI" "zsytri_" %%ZSYTRI %ZSYTRI)
    ("SLASD4" "slasd4_" %%SLASD4 %SLASD4)
    ("CLA_GERPVGRW" "cla_gerpvgrw_" %%CLA_GERPVGRW %CLA_GERPVGRW)
    ("SPOTRF" "spotrf_" %%SPOTRF %SPOTRF)
    ("CLALSA" "clalsa_" %%CLALSA %CLALSA)
    ("CGEBAK" "cgebak_" %%CGEBAK %CGEBAK)
    ("DSYTF2" "dsytf2_" %%DSYTF2 %DSYTF2)
    ("CSYTRF" "csytrf_" %%CSYTRF %CSYTRF)
    ("CUNBDB" "cunbdb_" %%CUNBDB %CUNBDB)
    ("DLARRK" "dlarrk_" %%DLARRK %DLARRK)
    ("ZLASCL2" "zlascl2_" %%ZLASCL2 %ZLASCL2)
    ("DSYCON" "dsycon_" %%DSYCON %DSYCON)
    ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2)
    ("DSYEQUB" "dsyequb_" %%DSYEQUB %DSYEQUB)
    ("DSYEV" "dsyev_" %%DSYEV %DSYEV)
    ("CLASYF" "clasyf_" %%CLASYF %CLASYF)
    ("CPTCON" "cptcon_" %%CPTCON %CPTCON)
    ("DTRSEN" "dtrsen_" %%DTRSEN %DTRSEN)
    ("CSYCON_ROOK" "csycon_rook_" %%CSYCON_ROOK %CSYCON_ROOK)
    ("CHBGV" "chbgv_" %%CHBGV %CHBGV)
    ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF)
    ("CGTTS2" "cgtts2_" %%CGTTS2 %CGTTS2)
    ("ZTGSYL" "ztgsyl_" %%ZTGSYL %ZTGSYL)
    ("SSBEV_2STAGE" "ssbev_2stage_" %%SSBEV_2STAGE %SSBEV_2STAGE)
    ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX)
    ("ZSPTRI" "zsptri_" %%ZSPTRI %ZSPTRI)
    ("DGEEV" "dgeev_" %%DGEEV %DGEEV)
    ("CSYTRI2" "csytri2_" %%CSYTRI2 %CSYTRI2)
    ("CLARGV" "clargv_" %%CLARGV %CLARGV)
    ("ILADIAG" "iladiag_" %%ILADIAG %ILADIAG)
    ("STREVC" "strevc_" %%STREVC %STREVC)
    ("SGEBAK" "sgebak_" %%SGEBAK %SGEBAK)
    ("ZHBGVX" "zhbgvx_" %%ZHBGVX %ZHBGVX)
    ("CLANHP" "clanhp_" %%CLANHP %CLANHP)
    ("ILAENV" "ilaenv_" %%ILAENV %ILAENV)
    ("ZGEQRT" "zgeqrt_" %%ZGEQRT %ZGEQRT)
    ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR)
    ("CGELQT" "cgelqt_" %%CGELQT %CGELQT)
    ("STRSNA" "strsna_" %%STRSNA %STRSNA)
    ("DPFTRS" "dpftrs_" %%DPFTRS %DPFTRS)
    ("CHPGVD" "chpgvd_" %%CHPGVD %CHPGVD)
    ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2)
    ("ZHPGVX" "zhpgvx_" %%ZHPGVX %ZHPGVX)
    ("DSPSV" "dspsv_" %%DSPSV %DSPSV)
    ("CPTTRF" "cpttrf_" %%CPTTRF %CPTTRF)
    ("SLASD0" "slasd0_" %%SLASD0 %SLASD0)
    ("CHESVXX" "chesvxx_" %%CHESVXX %CHESVXX)
    ("DSYTRD_2STAGE" "dsytrd_2stage_" %%DSYTRD_2STAGE %DSYTRD_2STAGE)
    ("ZHEGS2" "zhegs2_" %%ZHEGS2 %ZHEGS2)))

(COMMON-LISP:EXPORT '(%DPTEQR %ZLAPLL %CLARFY %CHBGVX %ZLATSQR %ZHEEVX
                      %SGEQR %CLAUUM %CLACPY %DORM2R %SLASQ3 %SORGBR
                      %CTGSEN %ZHSEQR %CPBSVX %ZGGESX %DGGSVD3
                      %SLA_SYRPVGRW %SGGGLM %DLAED7 %SORBDB5 %SLAPY3
                      %SSYGV_2STAGE %SGEEVX %SSBEVD %DLAMRG %CLANHF
                      %CHPCON %ZUNGQR %DPBSV %SGESVX %ZGTCON %SLASV2
                      %DLA_SYRFSX_EXTENDED %CPPCON %ZTPQRT %ZGEEQU
                      %SLAED1 %SGSVJ0 %CHEEVD_2STAGE
                      %CLA_SYRFSX_EXTENDED %SPOTF2 %DPOCON %ZHEGVD
                      %ZGETRI %ZSYSVX %DLA_GERFSX_EXTENDED %SGTCON
                      %ZLA_GEAMV %CHEEVR_2STAGE %DLAG2S %ZPPTRI %SLACON
                      %CTPLQT %ZHECON_ROOK %CROT %ZTRSYL %CLARSCL2
                      %CLASR %SSYTRD_2STAGE %SSBEVX_2STAGE %SLARRV
                      %DORBDB3 %DPPCON %CHECON_3 %SLAHQR %DPOSVXX
                      %ZHESV_RK %CGEQR %CLACGV %SORML2 %CLAQR0 %SLAED2
                      %ZLATBS %DGETRF %CSYTRS2 %ZLANTP
                      %ZLA_HERFSX_EXTENDED %DGGLSE %ZLANHT %DORMR3
                      %ZUNGHR %DLANSF %ZGELQT3 %CHFRK %DSBEVD_2STAGE
                      %CUNG2R %CLARZT %CTGEX2 %SLATPS %CHETRI_3X
                      %ZLACGV %ZBDSQR %CLARFX %SORMRZ %DSYTRF_AA_2STAGE
                      %ZHPCON %SGERFS %DLARTGP %SSTEQR %DGELSY
                      %ZSYTRI_3X %ZGGHRD %SSYTRF %ZLAQP2 %CUNBDB1
                      %SGTSVX %SLAR2V %DSTEVD %ZLA_HERPVGRW %CLARFT
                      %ZGETSLS %ZHPTRS %SLATRS %DSYTRI_ROOK %DLARRF
                      %ZHEEVR %ZLACP2 %DLANTB %CLA_HEAMV %SLAMTSQR
                      %CTPRFS %DGBSVXX %ZTPTRI %DTGSNA %DSPEV %CGEBRD
                      %ZPOEQUB %DLARTGS %ZHETRS_AA_2STAGE %DTRCON
                      %CUNMR3 %DGBTRF %SLA_SYAMV %SPBTRF %CGBEQU
                      %ZHECON_3 %SGELS %DSYEVX %SSYTRS2 %DBDSDC %SGGHRD
                      %DSPGV %SGEMQRT %CSYR %STGEXC %CPOTRF2 %SGESVDQ
                      %DSPTRD %CSYTRF_ROOK %ZLAHEF_ROOK %ZGGQRF %DLAT2S
                      %DGESVXX %ZSYTRF_AA %CLA_HERFSX_EXTENDED %ZLARFX
                      %SGEMLQ %DGGHD3 %CHBEVD_2STAGE %DPTTRS %DLAG2
                      %CGESVXX %ZLACRM %ZTBCON %DLASD7 %ZUNGTR %CGEESX
                      %CHEGST %CLARNV %DLAHR2 %ZLA_HEAMV %SGBCON
                      %ILADLC %SLASD6 %SLAED4 %SLA_GERFSX_EXTENDED
                      %SLARRR %CTRCON %ZGTSV %SSYGVD %DSPEVD %CTFTRI
                      %DSBEV %CGESVDX %SGEES %DGTRFS %SSYTRF_AA
                      %ZLA_GBRCOND_C %ZLANGT %ZHETD2 %CSYMV %DLARFY
                      %ZLACPY %SSTEVR %CLANHT %ZHETRS_ROOK %ZGELSY
                      %DTPRFS %ZSYTRI %SLASD4 %CLA_GERPVGRW %SPOTRF
                      %CLALSA %CGEBAK %DSYTF2 %CSYTRF %CUNBDB %DLARRK
                      %ZLASCL2 %DSYCON %DGEQL2 %DSYEQUB %DSYEV %CLASYF
                      %CPTCON %DTRSEN %CSYCON_ROOK %CHBGV %DGTTRF
                      %CGTTS2 %ZTGSYL %SSBEV_2STAGE %DGBSVX %ZSPTRI
                      %DGEEV %CSYTRI2 %CLARGV %ILADIAG %STREVC %SGEBAK
                      %ZHBGVX %CLANHP %ILAENV %ZGEQRT %DLAHQR %CGELQT
                      %STRSNA %DPFTRS %CHPGVD %DGELQ2 %ZHPGVX %DSPSV
                      %CPTTRF %SLASD0 %CHESVXX %DSYTRD_2STAGE %ZHEGS2)
                    '#:MAGICL.LAPACK-CFFI)

;;; End of file.
